If you just want to count cells with values in column A you could do like
this:

Sub Test()
Dim iLastRow As Long
Dim i As Long

Range("C3").Value = 0

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To iLastRow
If Cells(i, "A").Value < "" Then
Range("C3").Value = Range("C3").Value + 1
End If
Next i

End Sub



"jetted" wrote in
message ...

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