Toggle Visibility of an Array of Worksheets

[Gregory72]

Is it possible to toggle the visibility of an array of worksheets rather than one worksheet at a time?
I know this code wouldn't work if you tried, but I'm thinking something like this:

Dim ShtNames as Variant
ShtNames = Array("01", "02", "03")
ShtNames.Visible = True

I know I could run a for loop through the array to show each sheet's visibility individually, but I was hoping that I could just do them at the same time. Any help would be appreciated.

Thanks

 

[shg]

Sheets(Array("01", "01", "03")).Visible = False

 

[Gregory72]

I couldn't get this to work. Thanks for the help, though

 

[shg]

There was a typo ...

Sheets(Array("01", "[COLOR="#FF0000"]02[/COLOR]", "03")).Visible = False

and that worked fine for me, but I should have used the correct enumeration:

Sheets(Array("01", "02", "03")).Visible = [COLOR="#FF0000"]xlSheetHidden[/COLOR]

The sheets all must be visible for it to work.

 

[Gavin T]

Is it possible to toggle the visibility of an array of worksheets rather than one worksheet at a time? ...

If you want to toggle the worksheets between hidden and visible, try this.

Sub ToggleHidden()

    Dim wsToggle As Worksheet

    For Each wsToggle In Sheets(Array("01", "02", "03"))
        wsToggle.Visible = Not wsToggle.Visible
    Next wsToggle

End Sub