tabellen ausblenden -unbeantwortet

mit diesem code:

Private Sub CommandButton3_Click()
Dim blatt As Object
For Each blatt In Sheets
If blatt.Name <> ActiveSheet.Name Then
blatt.Visible = False
End If
Next blatt
End Sub

blende ich alle tabellen aus bis auf die aktive tabelle

wie muss den code schreiben dass nicht alle tabellen ausser der aktiven tabelle ausgeblendet werden ?

die frage habe schon mal gestellt leider ohne antwort zum problem

danke im voraus wenn mir da jemand was brauchbares sagen kann

roland