Rachel

Several ways to do this. All involve VBA code.

Are you OK with that?

Private Sub Workbook_Open()
ActiveSheet.PageSetup.RightFooter = Date
End Sub

Alternative.........

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = Date
End Sub

If you want all sheets to have the current date replace with this code.

Private Sub Workbook_Open()
Set wkbktodo = ActiveWorkbook
For Each ws In wkbktodo.Worksheets
ws.PageSetup.RightFooter = Date
Next
End Sub

To enter this code, right-click on the Excel icon left of "File" on menu and
select "View Code". Paste one of the above in there.


Gord Dibben Excel MVP


On Mon, 16 May 2005 13:30:11 -0700, "RachelN"
wrote:

I need to insert the TODAY function or other parameter after the &[Date] into
a custom header so that the current date always shows up in the header when
you open a worksheet? When I use the &[Date], it places the current date,
but when I open it up the next day, it's got the old date. I need the
current date to display each day I open the file. Anybody know how to do
this? Thanks for your help!