Using VBA to set footer

S

Steven

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
 
B

Bob Phillips

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)
 
Top