With Activesheet.usedrange
msgbox .Rows.count
End With

for a specific column

set rng = Range(cells(1,"C"),cells(rows.count,"C").End(xlup) )
msgbox rng.rows.count

--
Regards,
Tom Ogilvy



"Leon" wrote in message ...
Hi!

I have to find out how many rows do my collumn have.
Can enyone give me som VB solution?
I tried:
Range.Rows.Count byt then I obtain 65K
and
Range.Parent.UsedRange

any others propositions??

Thanx in advice Leon!