Hallo zusammen,

ich habe eine Tabellenmappe mit 24 Tabellenblättern.

Über eine Schaltfläche ist untenstehender Code ausführbar.

Beim 1. Klick bleibt Tabellenblatt 1 "Auswahl" offen und Tabellenblatt 2 "Finanzen" wird geschlossen.

Anschließend kommt folgende Meldung und alle anderen Tabellenblätter bleiben geöffnet:

"Index ausserhalb des gültigen Bereichs".

Nach einem 2. Klick schließen sich alle anderen Tabellenblätter ohne Fehlermeldung.

Ich sehe den Fehler nicht.

Kann jemand helfen?

Gruß

Ben

Sub VerbergenGesamt()
Dim ws As Worksheet


For Each ws In ThisWorkbook.Worksheets()
  If Not ws.Name = "Auswahl" Then
    ws.Visible = xlVeryHidden
 
 End If
Next ws
End Sub