Hi

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Sheets("Sheet1").Range("A1") = "Workbook last saved on " & _
Format(Now, "mmmm dd yyyy") & " at " & Format(Now, "hh:mm")
End Sub

--
XL2002
Regards

William



"D" wrote in message
...
| Is there a way to put in the date when a user saves a document within the
| spreadsheet? So that the next user can see when the spreadsheet was last
| saved.
| Thanks,
| --
| D