Date in footer

[Francis Hookham]

In the spreadsheet footer how can I change the default &[Date] which
produces DD/MM/YYYY

to D MMM YY so the following appears:

2 Jul 08

or D MMMM YYYY for:

2 July 2008

Francis Hookham

 

[Bob Phillips]

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup

.LeftFooter = Format(Date, "d mmmm 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

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Gord Dibben]

Excel uses the short date format from your Windows OS date settings.

You can achieve some change by modifying at that spot.

I say "some" because not all formats are accepted.


Gord Dibben MS Excel MVP

 

[Francis Hookham]

Bob - please excuse me for not thanking you earlier - no excuse - i just
missed doing so..Many thanks once again.

Francis

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup

.LeftFooter = Format(Date, "d mmmm 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

Bob

(there's no email, no snail mail, but somewhere should be gmail in my
addy)

In the spreadsheet footer how can I change the default &[Date] which
produces DD/MM/YYYY

to D MMM YY so the following appears:

2 Jul 08

or D MMMM YYYY for:

2 July 2008

Francis Hookham