Blätter jedes Mal wieder einblenden

[maine-coon]

Jedes Mal, wenn ich im VBA mit F5 mein Programm laufen lasse,
werden alle Blätter ausgeblendet.

Das soll später auch so sein, aber nicht während meiner Testphasen.
Ich habe alle Zeilen mit einem ' auf Remark gesetzt.

Nach jedem Teststart, muss ich anschließend in die Optionen gehen
und die Blattregister wieder manuell durch das Häkchen setzen einblenden.

Weiß jemand warum das nicht funktioniert?
Der Code wird korrekt fehlerfrei durchlaufen...Und vor allem, das hat mal funktioniert....

Hier der Programmcode...

Code:

For Each wks In strQuelle.Worksheets
   Select Case wks.Name
       Case "Start"
           Sheets(wks.Name).Visible = True
           Sheets(wks.Name).Protect "test", userinterfaceonly:=True
           Sheets(wks.Name).Select
       Case "order"
           Sheets(wks.Name).Visible = True
           'Sheets(wks.Name).Visible = xlVeryHidden
           Sheets(wks.Name).Protect "test", userinterfaceonly:=True
       Case "Texte"
           'Sheets(wks.Name).Visible = xlVeryHidden
           Sheets(wks.Name).Visible = True
       Case "Auswahl"
           merker = True  'erstmal ALLE blätter durchlaufen und nach "Auswahl" suchen
           Sheets("Auswahl").Cells.ClearContents
           'Sheets(wks.Name).Visible = xlVeryHidden
           Sheets(wks.Name).Visible = True
       Case "Bestellung_Vorlage"
           Sheets(wks.Name).Protect "test", userinterfaceonly:=True
           Sheets(wks.Name).Visible = xlVeryHidden
       Case "Hardcopyprint"
           Sheets(wks.Name).Protect "test", userinterfaceonly:=True
           Sheets(wks.Name).Visible = True
           'Sheets(wks.Name).Visible = xlVeryHidden
       Case Else
           'Sheets(wks.Name).Visible = xlVeryHidden 'Alle Blätter ausblenden
           Sheets(wks.Name).Visible = True 'Alle Blätter einblenden
   End Select
Next wks

[Kuwer]

Code:

For Each wks In strQuelle.Worksheets
  wks.Visible = True
  Select Case wks.Name
      Case "Start"
          Sheets(wks.Name).Visible = True
          Sheets(wks.Name).Protect "test", userinterfaceonly:=True
          Sheets(wks.Name).Select
      Case "order"
          Sheets(wks.Name).Visible = True
          'Sheets(wks.Name).Visible = xlVeryHidden
          Sheets(wks.Name).Protect "test", userinterfaceonly:=True
      Case "Texte"
          'Sheets(wks.Name).Visible = xlVeryHidden
          Sheets(wks.Name).Visible = True
      Case "Auswahl"
          merker = True  'erstmal ALLE blätter durchlaufen und nach "Auswahl" suchen
          Sheets("Auswahl").Cells.ClearContents
          'Sheets(wks.Name).Visible = xlVeryHidden
          Sheets(wks.Name).Visible = True
      Case "Bestellung_Vorlage"
          Sheets(wks.Name).Protect "test", userinterfaceonly:=True
          Sheets(wks.Name).Visible = xlVeryHidden
      Case "Hardcopyprint"
          Sheets(wks.Name).Protect "test", userinterfaceonly:=True
          Sheets(wks.Name).Visible = True
          'Sheets(wks.Name).Visible = xlVeryHidden
      Case Else
          'Sheets(wks.Name).Visible = xlVeryHidden 'Alle Blätter ausblenden
          Sheets(wks.Name).Visible = True 'Alle Blätter einblenden
  End Select
Next wks

Gruß Uwe

[maine-coon]

Keine Veränderung mit der eingefügten Zeile von dir.
Aber ich habe erstmal einfach die Zeile

ActiveWindow.DisplayWorkbookTabs = True

eingebaut.... Später hau ich die wieder raus und gut....
Danke dir dennoch für die Hilfe....
Schönes Weekend