[SOLVED] Hiding Multiple Worksheets with VBA

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