This line:

ActiveSheet.PageSetup.RightFooter = Date

Adjusts the rightfooter of the activesheet. (If you enabled macros.)

If you want a specific worksheet's footer to change, then you can be more
specific.

worksheets("sheet99").PageSetup.RightFooter = Date



RachelN wrote:

Gord,
When I opened the spreadsheet today, the date displayed is 5/17/2005. I'm
looking for some code to display the dynamic current date, so that it will
change from day to day.
Any ideas for that?
Rachel

"RachelN" wrote:

Gord,
Thanks for the code. I had no problem inserting this into VBA code and the
footer displayed 5/17/2005 with no problema. Now tomorrow, it should display
5/18/2005 and then I will be a happy camper.
Rachel

"Gord Dibben" wrote:

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!



--

Dave Peterson