Dim lCol as Long, rng as Range
lCol = 1
With Worksheets("Settings")
set rng = .Range(.Cells(1,lCol),.Cells(rows.count,lCol).end( xlup))
End With
msgbox rng.rows.count

--
Regards,
Tom Ogilvy

"kaon " wrote in message
...
Hi all,

Sorry for this stupid question. Is it possible to count the number of
rows of a particular column?

I wrote:
1) Worksheets("Settings").UsedRange.Columns(1).Rows.C ount
2) Worksheets("Settings").Columns(1).Rows.Count

Neither works correctly. (first one gives 244, which it should give me
54 for the first column; second one gives 65536.)

Thanks.


---
Message posted from http://www.ExcelForum.com/