Cells(Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row, Cells.Find("*",
[A1], , , xlByColumns, xlPrevious).Column).Select

--
Regards,
Luc.

"Festina Lente"


"grok" wrote:

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?