Aktives Blatt abfragen

Private Sub Workbook_BeforeSave" abfragen ob ein bestimmtes Tabellenblatt geöffnet ist und dann eine Anweisung ausführen. Leider klappt es nicht so wirklich.
Wenn ich mir das Tabellenblatt in einer Message Box ausgeben lasse funktioniert es:

Private Sub Workbook_BeforeSave(ByVal _
SaveAsUI As Boolean, Cancel As Boolean)
MsgBox ActiveWorkbook.ActiveSheet.Name
End Sub

Wenn ich allerdings eine Anweisung ausführen falls das Blatt aktiv ist passiert nichts. Ich komme einfach nicht darauf warum das so ist.


Private Sub Workbook_BeforeSave(ByVal _
SaveAsUI As Boolean, Cancel As Boolean)
If ActiveWorkbook.ActiveSheet.Name = "Tabelle1" Then
MsgBox ("Blatt")
End If
End Sub

Was mache ich falsch?

Vielen Dank an alle.