Header Font

Hello Everyone,

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

Code:

---

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:

Andrew,
The online help in the vba editor should define all the available formatting codes. Here's what you are looking for.

Code:

---

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

---

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