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
--
rickey2
-----------------------------------------------------------------------
rickey24's Profile:
http://www.excelforum.com/member.php...fo&userid=1035
View this thread:
http://www.excelforum.com/showthread.php?threadid=26697