ich möchte beim Schließen einer Datei alle Tabellenblätter außer Tabelle1 und Tabelle2 "SheetVeryHidden" ausblenden und habe dazu folgenden ähnlichen Code im Netz gefunden, der aber nicht funktioniert:
Public Sub Vor_Schliessen()
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
Select Case Ws.Name
Case "Tabelle1", "Tabelle2"
Case Else
Ws.Visible = xlSheetVeryHidden
End Select
Next Ws
End Sub
Da ich nicht der VBA-Poweruser bin, benötige ich bitte eure Hilfe, wie der Code richtig lauten müsste.Erneut vielen Dank vorab und beste Grüße
Axel