Header Font

[Andrew]

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]

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]

Thanks CBrine for the code and the tip about looking in the help files (silly me) :yes