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