Last save data placed in Footer?
 

I found this simple code (below) to place the date and time my file was last
saved into cell "A1". I like it a lot, but now I need to put the date and
time the file was last saved into the center section of a footer. How do I
specify that placement?

Quin



Private Sub Workbook_Beforesave(ByVal saveasiu As Boolean, Cancel As Boolean)

Sheets(1).Range("A1").Value = Now

End Sub

Last save data placed in Footer?
 

Try this example Quin

http://www.rondebruin.nl/print.htm#Saved

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Quin" wrote in message ...
I found this simple code (below) to place the date and time my file was last
saved into cell "A1". I like it a lot, but now I need to put the date and
time the file was last saved into the center section of a footer. How do I
specify that placement?

Quin



Private Sub Workbook_Beforesave(ByVal saveasiu As Boolean, Cancel As Boolean)

Sheets(1).Range("A1").Value = Now

End Sub

Last save data placed in Footer?
 

That is WONDERFUL ! The directions were easy and it works GREAT !
Quin

"Ron de Bruin" wrote:

Try this example Quin

http://www.rondebruin.nl/print.htm#Saved

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Quin" wrote in message ...
I found this simple code (below) to place the date and time my file was last
saved into cell "A1". I like it a lot, but now I need to put the date and
time the file was last saved into the center section of a footer. How do I
specify that placement?

Quin



Private Sub Workbook_Beforesave(ByVal saveasiu As Boolean, Cancel As Boolean)

Sheets(1).Range("A1").Value = Now

End Sub