Toggle Button to hide / unhide multiple sheets

[PVA0724]

Hi

I'm new using the user forms so I have this procedure that hide / unhide to specific workshets...so I thought that if copy to the Private Sub of the ToggleButton will work the same...but it didn't...and here it is the code I used

 Private Sub ToggleButton1_Click()
 Dim ws As Worksheet
    For Each ws In Sheets(Array("ICP account Express List", "ICP Participants"))
        ws.Visible = (ws.Visible = False)
    Next ws

End Sub

Any idea how to get it, so that if I click the first time both worksheets will be hidden and in a second one visible

Thanks

 

[Smitty]

You can use:

ws.Visible = Not ws.Visible

If you want it for general use, then remove the Private.

HTH,

 

[PVA0724]

Hi

Thanks for the prompt reply I did the change as follow

Dim ws As Worksheet
    [B][COLOR=#0000ff]For Each ws In Sheets(Array("ICP account Express List", "ICP Participants"))
[/COLOR][/B]       ws.Visible = Not ws.Visible
   Next ws

And now I'm getting Subscript out of range in the blue line. I only these worksheets to have them visible or not from the user form toggle button.

 

[Smitty]

Is that exactly how the sheets are named?

 

[PVA0724]

Hi Smitty

Yes, they are, what I did was to tested that as a producedure and it worked, so that's why I just copy it to the toggle button instruction, but it didn't work.

 

[Smitty]

I don't know what to tell you. I just tested it and it works fine for me.