Where would like to see this information?

This code placed into Thisworkbook module will put the info in a cell.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI _
As Boolean, Cancel As Boolean)
Sheets("Sheet1").Range("A1").Value = Environ("Username") & " " _
& Format(ThisWorkbook.BuiltinDocumentProperties("Las t Save Time"), _
"yyyy-mmm-dd hh:mm:ss")
End Sub


Gord Dibben MS Excel MVP


On Thu, 6 Aug 2009 06:42:08 -0700, Stuart WJG
wrote:

I would like to date stamp spreadsheet any time it is updated along with user
name of computer doing it
cheers Stuart