Without VBA

=ADDRESS(MATCH(99^99,A:A),1,4) address of last numeric cell

=ADDRESS(MATCH(REPT("z",255),A:A),1,4)

to find address of last text cell in column

Note the 4 returns relative-------1,2,3,4 are options

With VBA

Sub lastcell()
Dim lrow As Long
lrow = Cells(Rows.Count, 1).End(xlUp).Row
MsgBox lrow
End Sub


Gord Dibben MS Excel MVP

On Wed, 4 Mar 2009 17:26:00 -0800, Philosophaie
wrote:

How do you take a column, find the last entry in it and list the row # of the
last entry?