Last Used Cell

[ryguy7272]

This snippet of code always fails on the ActiveSheet line

Dim LastR
LastR = Cells(Rows.Count, "P").End(xlUp).Select
ActiveSheet.PageSetup.PrintArea = "$A$1:LastR"


What is wrong? I am just trying to find the last used cell in Column P, and
then set the Print Area as A1 to the last row in Column P that is used.

Argh!!

 

[Jim Thomlinson]

Try this...

Dim LastR as long

LastR = Cells(Rows.Count, "P").End(xlUp).Select
ActiveSheet.PageSetup.PrintArea = "A1" & LastR

 

[ryguy7272]

Well, it certainly looks like it should work, but Excel doesn't like it. It
gtes hung up in the same place. What could it be?

Thanks,
Ryan--

 

[Jim Thomlinson]

you want the row so get rid of the select...

Dim LastR as long

LastR = Cells(Rows.Count, "P").End(xlUp).Row 'Row not Select
ActiveSheet.PageSetup.PrintArea = "A1" & LastR

 

[Gord Dibben]

Dim LastR As Long
LastR = Cells(Rows.Count, "P").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "$A$1" & LastR


Gord Dibben MS Excel MVP

 

[Dave Peterson]

I don't think Jim saw that .Select lurking at the end of that second line:

Dim LastR as long
LastR = Cells(Rows.Count, "P").End(xlUp).Row '<--changed to row
ActiveSheet.PageSetup.PrintArea = "A1" & LastR

 

[ryguy7272]

I knew when Jim Thomlinson got involved this issue would be resolved!! Also,
thanks for the help Gord and Dave!! This must have been such a simple thing
for three gurus, but for me it was somewhat troublesome. Oh well, I learned
a new trick today.

Thanks again guys!
Ryan---