Option Explicit
Public Sub LastCell()
Dim X As Range
Set X = Range("A65536").End(xlUp).Offset(1, 0)
X.Select
X.Value = x.row - 1
End Sub

--
Regards,
Tom Ogilvy



"me" wrote in message
om...
Hello All.

I have the following Code:

Option Explicit
Public Sub LastCell()
Dim X As Range
Set X = Range("A65536").End(xlUp).Offset(1, 0)
X.Select
X.Value = ????
End Sub

I need help getting the value of the number of rows in the usedrange area
to
put in a cell that is in the row just under the last row.
Any suggestions?

Any help appreciated