Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
worksheets("Sheet1").Range("A1").Value = Format(Date,"dd mmm yyyy")
End Sub

Put this code in the ThisWorkbook code module.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"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