Office 2016: Aenderungsdatum in Zelle schreiben pro Tabellenblatt

[CH3NO2]

Hallo allerseits,

Ich benötige ein Makro welches mir in einem Tabellenblatt das Aenderungsdatum in die Zelle A1 schreibt.

Dies funktioniert einwandfrei:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
    Tabelle1.Range("A1").Value = Format(Now, "dd.MM.yyyy hh:mm:ss")
Application.EnableEvents = True
End Sub

Nun möchte ich aber dies in einer Datei mit mehreren Tabellenblätter, das selbe wie oben beschrieben
einfach auch für Tabelle2 bis Tabelle10. Für jedes Tabellenblatt sein eigenes Aenderungsdatum.

Wie muss ich da vorgehen?

Gruss Martin

[CH3NO2]

Habs gefunden hier die Lösung:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
Sh.Range("A1").Value = Format(Now, "dd.MM.yyyy hh:mm:ss")
Application.EnableEvents = True
End Sub

Schönen Tag noch
Gruss Martin