Change Date Format in Excel 2002 Footers

  • Thread starter Thread starter Barry S
  • Start date Start date
B

Barry S

is there a way to automatically set up a workbook so that
all worksheets ahve a date footer "DD MMMM, YY" rather
than the current default "DD/MM/YY". I am aware of KB
article 213742 and have created a work around. However
I am looking for a more automatic process that will also
cover inserted worksheets.

Thanks
Barry S
 
Barry,

You could try this code in the ThisWorkbbok code module

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

This will apply to all worksheets in a workbbok, new and yet to be added.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Excel's month portion of the Header/Footer Date code does not show more than
the two digit numeric.

You'll need a macro.
_______________________
Robert Rosenberg
R-COR Consulting Services
Microsoft MVP - Excel
http://www.r-cor.com
 
Forgot to say that even if you change the short date format in Regional
Settings (Control Panel), the month portion will still show a two digit
numeric.

--
_______________________
Robert Rosenberg
R-COR Consulting Services
Microsoft MVP - Excel
http://www.r-cor.com
 
Back
Top