Unhide/hide certain worksheets

[cdsaroma]

I have sheets numbered 1-107 and would like a macro that would unhide all these sheets, in one go. Then a macro to hide all the sheets again.
Is this possible?

thanks

 

[HalfAce]

Is this possible? ...Mostly
We can't hide all the sheets. At least one needs to remain visible.
That being said, here's a routine that will hide all but sheet 1, or show all sheets, depending on what's visible when you execute the code. (ie, it's just a toggle button.)

Sub ToggleHideSheets()
Dim WkSht As Integer
For WkSht = 2 To Sheets.Count
  With Sheets(WkSht)
    .Visible = Not .Visible
  End With
Next WkSht
End Sub

Is that close to what you're looking for?

 

[cdsaroma]

Is this possible? ...Mostly
We can't hide all the sheets. At least one needs to remain visible.
That being said, here's a routine that will hide all but sheet 1, or show all sheets, depending on what's visible when you execute the code. (ie, it's just a toggle button.)

Sub ToggleHideSheets()
Dim WkSht As Integer
For WkSht = 2 To Sheets.Count
  With Sheets(WkSht)
    .Visible = Not .Visible
  End With
Next WkSht
End Sub

Is that close to what you're looking for?

Yes, that is on the right track.
Is there a way to exclude these two sheets from being unhidden:
Value
Monthly
And when they (1 to 107) are unhidden is there a way to make sheet number "1" the active sheet

thanks a lot