Mickey
You could use a workbook_Beforesave() event, like so
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Worksheets("Sheet1").Range("A1").Value = Now()
End Sub
To get into workbook, right-click the workbook excel icon second down top
left and select view code, paste here
Change worksheet and cell ref to suit
--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
(e-mail address removed)
www.nickhodge.co.uk