Private sub macro1()
Dim Z as integer
Z = 1

Do until sheet1.range("A" & Z).value = ""
If sheet1.range("A" & Z).value = "" then
' ""
else

Z = Z +1
end if
loop
sheet1.range("B1").value = Z
end sub

"you can pick up the Z value at cell B1"


--
T.c.Goosen1977
------------------------------------------------------------------------
T.c.Goosen1977's Profile: http://www.excelforum.com/member.php...o&userid=35895
View this thread: http://www.excelforum.com/showthread...hreadid=557210