--

HTH

RP
(remove nothere from the email address if mailing direct)


"Steven" wrote in message
...
I have the following code to setup a footer:

Sub DateFooter()

With Worksheets("sheet2").PageSetup
.LeftFooter = UCase(Format(Date, "dddd mmmm d, yyyy"))
End With

End Sub


In the code, how do I make it Bold Arial 10?

Thank you for your help.

Steven