Hi

Following macro puts the last row number of the Range
starting in A1 in cell B1.

regards


Sub Macro11()

Dim lLastRow As Long
Dim rgLast As Range

Set rgLast = Range("A1").SpecialCells(xlCellTypeLastCell)
lLastRow = rgLast.Row

Range("A1").Value = lLastRow

End Sub

-----Original Message-----
I have a macro which works out the last row in a column
of data. I want
to put the row number in a Cell. How can I do this ?

Thanks


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

.