Do until cell is empty

H

Hru48

Hey,

I have a macro that at the end of each irrteration deletes a cell from
colum A. How do i tell it to run until it runs of of values in column
A? Column A is empty

Cheers
 
F

FSt1

hi.
dim c as range 'current
dim n as range 'next
set c = range("A1")
do while not isempty(c)
set n = c.offset(1,0)
your code here
set c=n
loop

regards
FSt1
 
Top