Date in footer
 

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

Date in footer
 

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)

"Francis Hookham" wrote in message
...
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

Date in footer
 

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

On Wed, 2 Jul 2008 10:39:08 +0100, "Francis Hookham"
wrote:

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

Date in footer
 

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

Francis


"Bob Phillips" wrote in message
...

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)

"Francis Hookham" wrote in message
...
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