Making a note when a file was last updated?

[tonywatsonhelp]

Hi Everyone,
I have a file with lots of sheets,
I want a macro that if any changes are made to the document it will insert the date into Sheet "Conrol" Range("D1")

please help if you can

Thanks

Tony

 

[JackDanIce]

Place code below into ThisWorkbook object, check spelling of sheet "Conrol"

I want a macro that if any changes are made to the document it will insert the date into Sheet "Conrol" Range("D1")

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Based on: https://stackoverflow.com/questions/42722757/triggering-worksheet-change-in-excel-vba


    Dim s   As String
    
    s = "Change: Sheet(@n) Range(@r) @NOW"
    s = Replace(s, "@n", Sh.Name)
    s = Replace(s, "@r", Target.Address)
    
    Application.EnableEvents = False
    With sheets("Conrol").Cells(1, 4)
        .Value = Replace(s, "@NOW", Now)
        .EntireColumn.AutoFit
    End With
    Application.EnableEvents = True
    
End Sub

Link in code where adapted from

 

[tonywatsonhelp]

Thank you Jack Dan Ice,
This is great

Tony