Take out the ".Cells" portion and it should work.

--
Regards,
Zack Barresse, aka firefytr
To email, remove NOSPAM



"Dave" wrote in message
...
Should this do it? "Loop Until IsEmpty(ActiveCell.Cells)"


"Tom Ogilvy" wrote:

i = 1
do while not isempty(cells(i,1))
cells(i,1).interior.colorIndex = 3
i = i + 1
Loop


i = 1
Do
cells(i,1).Interior.ColorIndex = 3
i = i + 1
Loop until isempty(cells(i,1)

--
Regards,
Tom Ogilvy

"Dave" wrote:

What is the function to end a Do While statemnet when encountering a
null,
blank or empty cell?

Thank you
Dave