Change the format of my footer {date} option?

T

Tori

I would like to show the date in my footer as January 25, 2005 instead of the
default 01/25/05
 
B

Bob Phillips

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
.PageSetup.LeftFooter = Format(Date, "mmmm dd, yyyy")
End With
End Sub


put this in the ThisWorkbook code module.

--

HTH

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