'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Worksheets("Sheet1").Range("A1") = Format(Date, "dd mmm yyyy")
End Sub


--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Marie Bayes" wrote in message
...
Is it possible for a last updated date to be inserted into a cell in a
spreadsheet that is only updatted if the spreadsheet is changed?