Count rows

[enfantter]

Hey,

I know that this might incredibly simple, but i cant seem to find the solution.
I want to count the number of rows in a sheet, in order to use it as input sort of like this:

for 0 to [number of rows]

Enfant terrible

[Bob Phillips]

activesheet.usedrange.rows.count

[Tinbendr]

The long version.



'Retrieve row/col info
Set wsData = Worksheets("DATA")
Set TopCell = wsData.Range("A1")
Set BtmCell = wsData.Range("O65536").End(xlUp)
Set SourceRange = Range(TopCell, BtmCell)
NumRows = SourceRange.Rows.Count


This gives you a little more flexability in that you can specify the range. In this case, a1:o(last cell that has data)

[mdmackillop]

activesheet.usedrange.rows.count

... but only if your data starts in row 1.