Last save data placed in Footer?

[Guest]

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

 

[Ron de Bruin]

Try this example Quin

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

 

[Guest]

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