Activesheet.PageSetup.PrintArea =
Range(Range("A4"),Cells(15,DateCol.Column)).Addres s(External:=True)

--
Regards,
Tom Ogilvy


"rickey24" wrote in message
...

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 it
out.

Thanks for all the help.
RH


--
rickey24
------------------------------------------------------------------------
rickey24's Profile:
http://www.excelforum.com/member.php...o&userid=10359
View this thread: http://www.excelforum.com/showthread...hreadid=266971