Hi hyyfte

If you want to check one column try this

Sub test()
Dim r As Long
r = Application.WorksheetFunction.CountA(Sheets("Sheet 1").Range("A:A"))
MsgBox r
End Sub




--
Regards Ron de Bruin
http://www.rondebruin.nl


"hyyfte" wrote in message ...

How can I make r = number of rows non-empty rows?


--
hyyfte
------------------------------------------------------------------------
hyyfte's Profile: http://www.excelforum.com/member.php...o&userid=13187
View this thread: http://www.excelforum.com/showthread...hreadid=261743