MsgBox Cells.SpecialCells(xlCellTypeLastCell).Address

will give you the last cell in the UsedRange although this may be empty
if you have deleted the contents of some cells.

Assuming you have headings in row 1 then:

Dim eRow As Long
Dim eCol As Integer
eCol = Cells(1, Columns.Count).End(xlToLeft).Column
eRow = Cells(Rows.Count, eCol).End(xlUp).Row
MsgBox Cells(eRow, eCol).Address

will give you the address of the last non-empty cell in the last column
with a heading.

Hope this helps
Rowan

Jim wrote:
I need to know the address of the last cell (non-empty) on my worksheet. I
see that .Rows.Count and .Columns.Count seem to show only the max
size. "Last" is defined as a non-empty cell with the largest row and column
address.

thanks