John

One workaround is a macro in a general module.

Sub DateInFooter()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.PageSetup.RightFooter = Format(Date, "mm-DDD-yy")
Next ws
End Sub

Alternative....in a beforeprint routine in Thisworkbook module.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.PageSetup.RightFooter = Format(Date, "mm-DDD-yy")
Next ws
End Sub


Gord

On Fri, 9 Dec 2005 01:35:02 -0800, "John"
wrote:

Thanks for the response. I had used the change in the regional settings to
get what I wanted for other programs, but as you have confirmed, it doesn't
seem to work for Excel. V. strange !
So, if anyone does know a way around this ?....