Conny,

Try something like the following. Change the "A" to whatever column you want
to test.

Dim R As Range
Set R = ActiveSheet.Cells(Rows.Count, "A").End(xlUp)
If R.Row < 1 Then
Set R = R(0, 1)
End If
R.Select


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)


"conny" wrote in message
...
How do I reference the cell above the last cell in a column?? I know how
to
figure out the last cell, but I'm not sure how to subtract the last cell
by
the one right above it.