Private Sub Workbook_BeforeClose(Cancel As Boolean)

With ThisWorkbook
With Worksheets("Sheet1")
.Range("A1").Value = Environ("UserName")
.Range("A2").Value Format( _
ThisWorkbook.BuiltinDocumentProperties( _
"last save time"), " dd mmm yyyy hh:mm:ss")
End With
.Save
End With

End Sub


--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Zliz" wrote in message
...
Hi, I am trying my best to locate a macro or whatever to create a "Last
saved
on (&date)" entry on my Excel spreadsheet.

If it is possible to add the last user's name that would be great too! I
looked through this forum and was unable to find a direct example. If you
know how to do this, please provide the code/macro and whatever
instructions
you can.

THANKS!