Knapper til at skjule/vise ark - VBA

Du kan lave det i én knap,
idet du ved hvert klik ganger med
-1 (minus 1), så du ændrer fortegn.

Måske kan du bruge noget i stil med dette. Knappen skifter automatisk tekst mellem "Vis alle ark" og "Vis få ark" og hhv. viser/skjuler alle ark undtagen "Sheet1"

Sub ShowAll()
Dim WS As Worksheet
If ActiveSheet.Buttons("Button 1").Caption = "Vis alle ark" Then
For Each WS In ActiveWorkbook.Worksheets
WS.Visible = True
Next
ActiveSheet.Buttons("Button 1").Caption = "Vis få ark"
Else

For Each WS In ActiveWorkbook.Worksheets
If WS.Name <> "Sheet1" Then
WS.Visible = xlSheetHidden
End If
Next
ActiveSheet.Buttons("Button 1").Caption = "Vis alle ark"
End If
Range("A1").Select
End Sub

Hej Jens48 m.fl.

Indtil videre mange tak for indsatsen.
Jeg har ikke prøvet ovenstående løsning endnu, da det ser ud til, som jeg læser din indledende tekst, at programmeringen skjuler alle ark undtagen "Sheet1".

Jeg har imidlertid behov for, at kunne skjule de ark, som har status af "Ikke gyldig" og med en anden knap (eller samme, hvis den som i ovenstående kan skifte navn) at få vist disse igen efter behov.

Derudover er der tre ark, som ikke skal skjules.

Jeg håber på en løsning til dette - pft.

Vh CHC