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