Bei Speichern eines Files auf Sheet1 wechseln

Private Sub Workbook_Save()
Sheets("Sheet1").Activate
Sheets("Sheet2").Visible = False
End Sub

Dieses Soll ausgeführt werden wenn ich mein sheet speicher.
Das bedeutet:
Wenn ich speicher soll Sheet2 Visible = False
und Sheet1 Activate.
Wie muss ich also den Speicherbefehl mit einbauen, das es funktioniert?
Danke für eure Hilfe!
MFg
raphael