Hiding Multiple Worksheets with VBA

[tjloggia]

Hi there,

I have a workbook with 16 different worksheets. The first worksheet is what I'm calling a table of contents where I have created ActiveX Control Buttons that I would like to attach VBA Sub procedures to. The sub procedures I'd like to include are, as an example, hide all worksheets except worksheets 1and 2. Then I'd have another button to enact the code that says hide all worksheets except worksheets 4 and 6. I have specific names for each worksheet but hopefully that doesn't matter. I've been trying to figure out why the below doesn't seem to work and could use some help.

Option Explicit
Sub Division_1and2 ()
' Open the Division 1 and 2 worksheets for data entry.
'
Sheets(Array("Division 3", "Division 4", "Division 5", "Division 6", "Division 7", _
"Division 8", "Division 9", "Division 10", "Division 11", _
"Division 12", "Division 13", "Division 14", "Division 15")). _
SelectSheets.Visible = xlSheetHidden
Sheets("Division 1").Select
End Sub

Instead of xlSheetHidden I've also used the term False to no avail.

Any help would be appreciated.

Cheers,

Tom

[jaslake]

Hi Tom

Please wrap your Code in Code Tags.

Try this for hiding your selected Sheets

Please Login or Register  to view this content.

[tjloggia]

Thank you!!! It worked.

[jaslake]

You're welcome...glad I could help.

If you're satisfied by any members response to your issue please use the star icon at the lower left of their post.