Custom Header = Cell Content -Part II

[Wayne]

Re: Custom Header to equal a cell Content...

Thanks to Bob Umlas for the original code (would never
have found the answer in the MS Excel help....)

Can this code be altered so that it prints "A1" in the
header as "bold" "Arial font" "size 14",
Then underneath "B1" bold font etc.. Then "C1"

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Activesheet.Pagesetup.LeftHeader = Sheets
("Sheet1").Range("A1").Value
End Sub


PS where do you people get to learn all this stuff
anyway???
Is there a special Excel Coding School in syber space????

 

[Paul B]

Wayne, try this
ActiveSheet.PageSetup.LeftHeader = "&""Arial,Bold""&14 " _
& Sheets("Sheet1").Range("A1").Value

I learned most of what I know about excel form news groups like this one!
and a lot of trail and error

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2000 & 97
** remove news from my email address to reply by email **