one liner
MsgBox Cells.Find("*", Range("A1"), xlFormulas, xlPart, xlByRows,
xlPrevious).Address

--
Don Guillett
SalesAid Software

"Don Guillett" wrote in message news:...
Maybe your last column is not the column with the last row?

--
Don Guillett
SalesAid Software

"grok" wrote in message
...
I'm using these statements in some macros:
lc = Cells(1, Columns.Count).End(xlToLeft).Column
lr = Cells(Rows.Count, lc).End(xlUp).Row
Range(Cells(1, 1), Cells(lr, lc)).Select

Most of the time they work but some of the time they do not select all
the
rows leaving out one or two. Anyone know why?