hi
Assuming the data is in column A
Sub test()
rowcount = Cells(Cells.Rows.Count, "a").End(xlUp).Row
MsgBox rowcount
End Sub
--
jetted
------------------------------------------------------------------------
jetted's Profile:
http://www.excelforum.com/member.php...o&userid=17532
View this thread:
http://www.excelforum.com/showthread...hreadid=558896