Either loop over a SpecialCells range or:

Sub getolast()
For Each r In ActiveSheet.UsedRange
If IsEmpty(r) Or r.HasFormula Then
Else
Set rr = r
End If
Next
If rr Is Nothing Then
Else
rr.Select
End If
End Sub
--
Gary''s Student - gsnu200768


"Raj" wrote:

Hi,

I am looking for code for finding the last cell with a constant in it
(the cell in the lowest row and the rightmost column of the range
displayed in Edit--Go to--Special--Constants.)

Thanks in advance for the help.

Regards,
Raj