Hi Roger

It's an awful programming style, pardon my french, but it works in Excel
2002 also:

Sub test()
ActiveCell = 900
Do Until ActiveCell = 0
ActiveCell = ActiveCell - 1
Loop
End Sub

So your problem is elsewhere.

HTH. Best wishes Harald

"Roger" skrev i melding
...
I used "Do Until activecell = 0" in my prior Excel program but it doesn't
work in Excel 2002. Any suggestions? I would like a solution that solves
for blank rather than zero.

Thanks,

Roger