VBA: Alle Tabellenblätter ausblenden und maximal nur das aktuelle anzeigen

[sdtbluethink]

Hallo,

ich habe eine umfangreiche Tabelle mit derzeit 20 verschiedenen Tabellenblättern.
Zur besseren Nutzbarkeit habe ich diese in einem Userform verlinkt.

Ich rufe derzeit die Tabellenblätter per Button auf mit:

Code:

Private Sub CommandButton17_Click()
   Worksheets("REP-color").Activate
End Sub

Eigentlich sollen keine Tabellenreiter sichtbar sein, sondern nur die reinen Tabellen. 
Wenn ich Tabellen ausblende, kann ich diese mit dem Button nicht mehr aufrufen.

Das ausblenden habe ich zum Beispiel versucht mit:

Code:

Sub VeryHiddenSheet()
      Sheets("REP-color").Visible = xlVeryHidden
End Sub

Code:

Sub HideSheet()
      Sheets("REP-color").Visible = False
End Sub

Gibt es einen Befehl der das trotzdem erlaubt oder einen Weg mit dem ich sage:
Jetzt alle Tabellenblätter ausblenden, außer das mit dem Klick zu öffnende Blatt?

[sdtbluethink]

Das Problem ist gelöst.

Code für Button im Formular (Userform1)

Code:

Private Sub CommandButton1_Click()
   Call NURBLATT1
End Sub

Private Sub CommandButton2_Click()
   Call NURBLATT2
End Sub

Code für Modul1

Code:

Sub NURBLLATT1()
    If Sheets("TABELLENBLATT1").Visible = True Then Sheets("TABELLENBLATT1").Visible = xlVeryHidden
    If Sheets("TABELLENBLATT2").Visible = True Then Sheets("TABELLENBLATT2").Visible = xlVeryHidden
    (.... FÜR ALLE TABELLENBLÄTTER DIE AUSGEBLENDET WERDEN SOLLEN)
    WICHTIG EIN BLATT MUSS IMMER SICHTBAR BLEIBEN, - ZUM BEISPIEL TABELLENBLATTNOTIZEN- SONST GIBT ES FEHLER)
   
  Sheets("TABBELLENBLATT1").Visible = True  (hier TABBELLENBLATT1 soll sichtbar werden)
  Worksheets("TABBELLENBLATT1").Activate    (hier TABBELLENBLATT1 soll geöffnet werden)
End Sub


Sub NURBLLATT2()
    If Sheets("TABELLENBLATT1").Visible = True Then Sheets("TABELLENBLATT1").Visible = xlVeryHidden
    If Sheets("TABELLENBLATT2").Visible = True Then Sheets("TABELLENBLATT2").Visible = xlVeryHidden
       
  Sheets("TABBELLENBLATT2").Visible = True  (hier TABBELLENBLATT2 soll sichtbar werden)
  Worksheets("TABBELLENBLATT2").Activate    (hier TABBELLENBLATT2 soll geöffnet werden)
End Sub