T Tim Williams Feb 9, 2005 #2 One cell on each sheet, or just one cell for the whole workbook? Are you OK with just tracking the fact that one or more changes have been made, even if the changes were later (before saving) undone? Try placing this in the "Thisworkbook" module. Adapt to suit. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim sVal As String Static bProcessing As Boolean If bProcessing Then Exit Sub If Target.Cells.Count = 1 Then sVal = " New value " & Target.Value bProcessing = True ThisWorkbook.Sheets("Sheet1").Range("A1").Value = _ Format(Now, "mmm dd yyyy:hh mm ss") & " " & _ Sh.Name & " " & Target.Address & sVal bProcessing = False End Sub Tim.
One cell on each sheet, or just one cell for the whole workbook? Are you OK with just tracking the fact that one or more changes have been made, even if the changes were later (before saving) undone? Try placing this in the "Thisworkbook" module. Adapt to suit. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim sVal As String Static bProcessing As Boolean If bProcessing Then Exit Sub If Target.Cells.Count = 1 Then sVal = " New value " & Target.Value bProcessing = True ThisWorkbook.Sheets("Sheet1").Range("A1").Value = _ Format(Now, "mmm dd yyyy:hh mm ss") & " " & _ Sh.Name & " " & Target.Address & sVal bProcessing = False End Sub Tim.
