Sub countrows()
MsgBox Cells(Rows.Count, "c").End(xlUp).Row
'or
'MsgBox Cells(Rows.Count, activecell.column).End(xlUp).Row
End Sub

--
Don Guillett
SalesAid Software

"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!