In Thisworkbook module.

Private Sub Workbook_Open()
'or beforeprint
'Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim MyWeekDay
MyWeekDay = Weekday(Date)
If MyWeekDay = vbMonday Then 'or 2
With ActiveSheet
.PageSetup.CenterFooter = Format(Date, "dddd mmmm dd, yyyy")
End With
End If
End Sub


Gord Dibben MS Excel MVP

On Sat, 16 Feb 2008 20:49:00 -0800, Musette
wrote:

I am not more than a casual user of Excel (which is perhaps why I can't
figure out how to do this).

I would like to have a date automatically entered in the footer (which I
know how to do)...but then have it automatically update itself 7 days later.

In other words, I need to have Monday's date automatically updated and
entered each week.

If there is a solution for how to do this, I would appreciate your help.
...Just remember that I don't "do" formulas and functions and macros more
than once every few years. :-)