PDA

View Full Version : Solved: Header Font



Andrew
09-07-2004, 07:37 PM
Hello Everyone,

Is it possible to modify this code so that the font is Arial 14.

Sub HeaderDate()
ActiveSheet.PageSetup.RightHeader = Format(Date, "d mmmm yyyy")
End Sub

Clumsy clod that I am, I've tried doing this with the recorder and am now in despair. Thanks.

:hi:

CBrine
09-07-2004, 08:19 PM
Andrew,
The online help in the vba editor should define all the available formatting codes. Here's what you are looking for.

Sub HeaderDate()
ActiveSheet.PageSetup.RightHeader = "&16&""Arial""" & Format(Date, "d mmmm yyyy")End Sub

Andrew
09-07-2004, 09:14 PM
Thanks CBrine for the code and the tip about looking in the help files (silly me) :yes