Hi Roger,

You could use the IsEmpty function to test for blanks, e.g.:

Sub Tester()
Dim rng As Range
Dim i As Long

Set rng = Range("A1:A10")

Do Until IsEmpty(rng(i + 1))
'Do something
i = i + 1
Loop
End Sub


---
Regards,
Norman



"Roger" wrote in message
...
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