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!
|