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?

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?

Don, do you mean that this fails if my last row is empty on the last column?
That situation can occur. I'm trying to find the last col with anything in
any row and the last row with anything in any col. Sounds confusing but you
probably know what I mean.

If these statements don't do that then how can I fix them?

grok

"Don Guillett" wrote:

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?

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?

Another alternative that works on a completely empty sheet:
activesheet.usedrange.cells(activesheet.usedrange. cells.count).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?

Thanks for trying, PapaDos. But I get compiler errors with both solutions.

grok

"PapaDos" wrote:

Another alternative that works on a completely empty sheet:
activesheet.usedrange.cells(activesheet.usedrange. cells.count).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?

Works fine for me, what errors are you getting ?
--
Regards,
Luc.

"Festina Lente"


"grok" wrote:

Thanks for trying, PapaDos. But I get compiler errors with both solutions.

grok

"PapaDos" wrote:

Another alternative that works on a completely empty sheet:
activesheet.usedrange.cells(activesheet.usedrange. cells.count).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?