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)


"Tori" wrote in message
...
I would like to show the date in my footer as January 25, 2005 instead of
the
default 01/25/05