Hiding Worksheets and Unhiding Worksheets

[nerojr]

Hello,

I have a workbook that contains 87 tabs and all of the are hidden except 1. I need to modify my current code to allow 7 tabs to show at all times.

Here is the code I have setup currently:

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "Associate Skill Set" Then
ws.Visible = xlSheetVeryHidden
End If
Next ws
End Sub

Is there a way to modify this to allow more tabs to be visible?

Thanks

 

[Datsmart]

The last page in the below thread has sample code to work on all worksheet "Except" the listed ones in the code. This can be adjusted to work with your code.
http://www.mrexcel.com/forum/showthread.php?t=550926&page=3

 

[Andrew Poulsom]

Try eg:

If ws.Name <> "Associate Skill Set" And ws.Name <> "SomeOtherName" Then

 

[nerojr]

Thanks Andrew. This worked wonderfully. Also, Datsmart I appreciate your insight as well. Have a great day.