Page Header from a cell in bold

[Paul]

Hi,

I want to print a page header with the value of cell G1.
Is it possible to have it in Bold and size 14?
Thanks
Paul

 

[Tom Ogilvy]

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftHeader = "&""Arial,Bold""&14 " & _
Activesheet.Range("G1").Value
End With
End Sub

If you don't know about events, see Chip Pearson's page on this

http://www.cpearson.com/excel/events.htm

 

[Paul]

Thank you very much Tom. It works great
Regards & Good-weekend
Paul