Do while problem comcerning Cells

Hello again,

could you please explain to me, why this loop only works porperly until about “do while b < 10000":
[code]
Sub test()
Dim aDataset As DataSet
Dim b As Long
b = 1

Dim fYFirstValue

Set aDataset = ThisDatabase.RootFolder.Object("Time", fpObjectTypeDataSet)

Do While b < 10000

fYFirstValue =
aDataset.Value(fpDataComponentY, 1, b)

b = b + 1

Loop

Debug.Print fYFirstValue
Debug.Print b
End Sub[/code]

My data row consits of about 2 Mio entries. Is there a way to change my liuttle macro in order to make it work?

Thanks!

It actuallay works, but after about 10000-100000 entries it’s getting very slow. Thus going through 2 Mio entries means probably several hours of waiting, without even calculating anything during this period of time.Just checking the data row.