Make that Control PanelDate and Time, not Regional Options.


Gord

On Thu, 19 May 2005 14:59:21 -0700, Gord Dibben <gorddibbATshawDOTca wrote:

You can test right now if you want to change your system date in Regional
Options.

Close Excel and change the date then open the workbook.

But.....it will work so no need to test.


Gord Dibben Excel MVP

On Tue, 17 May 2005 13:06:08 -0700, "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!