Need help: I want to display the last save date and saved by in the footer

  • Thread starter Thread starter Kelly Cox
  • Start date Start date
K

Kelly Cox

I want to display the last save date and saved by in the
footer of my excel spreadsheet. I know how to do this in
word, but can not find anything for excel on doing this.
If anyone has a way for this to be done automaticly please
respond.

Thanks,
Kelly
 
A macro can accomplish this.

Open the VBA editor (Alt + F11). Insert a blank VBA module (Insert, Module).
Now copy and paste the following code into the module:

Sub dog()
Dim DateSaved As String
Dim SavedBy As String
DateSaved = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
SavedBy = ActiveWorkbook.BuiltinDocumentProperties("Last Author")
ActiveSheet.PageSetup.CenterFooter = DateSaved & " " & SavedBy
End Sub

Then go to worksheet area, hit Alt + F8, and select and run the macro called
dog.


Modify as desired....

MRO
 
Hi..this works great for me too. But, can you please tell me how I can make this work for ALL my workbooks
Can you step me through that process, please

Thanks!
 
Back
Top