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.