Modifying a footer date
If you do use the print the date technique you can specify its format
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftFooter = Format(Date, "dddd, mmmm dd, yyyy")
End With
End Sub
'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code
--
HTH
RP
(remove nothere from the email address if mailing direct)
"jim314" wrote in message
...
First, just to clarify, I am NOT looking to print the date/time the file
was
last modified, but rather I am looking to modify the default date format
that
Excel displays on the footers. How can this be done?
Example:
Currently the date looks like this: 10/21/05
I would like the date to look like this: Friday, October 21, 2005
Thanks in advance,
Jim
|