Cell Address, Last Non Empty Cell

[Filo]

How can I retrieve the address of the last non empty cell in column A,
starting from the bottom of column A?

Thank you!

 

[Fred Smith]

Range("A" & rows.count).end(xlup)

 

[Gord Dibben]

Sub test()
Set rng1 = ActiveSheet.Cells(Rows.Count, 1).End(xlUp)
MsgBox rng1.Address
End Sub


Gord Dibben MS Excel MVP

 

[David McRitchie]

Hi Filo,

Sub GotoBottomOfCurrentColumn()
'Tom Ogilvy 2000-06-26
Cells(Rows.Count, ActiveCell.Column).End(xlUp).Select
End Sub

For a toolbar button to go with the above see
http://www.mvps.org/dmcritchie/excel/toolbars.htm#xl2ktbm

The cell address in column A would be
MsgBox Cells(Rows.Count, 1).End(xlUp).Address(0, 0)

 

[Filo]

Thank you All