Sub DateFooter()
With ActiveSheet.PageSetup
.LeftFooter = "&""Arial,Bold""&10" & UCase(Format(Date, "dddd mmmm
d, yyyy"))
End With
End Sub

--

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