PrintArea

  • Thread starter Thread starter rickey24
  • Start date Start date
R

rickey24

Hi All

I Have dates listed all across an excel sheet in Row 6.
I am finding the column of today's date using this:

Set datecol = Rows("6:6").Find(What:=Date, After:=Range("C6")
LookIn:=xlValues)
datelet = datecol.Column

(In my example, datelet = 29 which is Column AC)

I then want to set the printarea as:

Activesheet.PageSetup.PrintArea = "A4:???15"

where the printarea would be "A4:AC15" but can't seem to figure i
out.

Thanks for all the help.
R
 
Activesheet.PageSetup.PrintArea =
Range(Range("A4"),Cells(15,DateCol.Column)).Address(External:=True)
 
Back
Top