Unhide all sheets that do not contain certain words in sheet name

[WisdomandLaughter]

This may be a fairly simple matter for someone well versed in VBA code, however it would take me days to figure out.
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
I pulled some code off the internet to “force” users to enable macros by hiding all sheets except a “Welcome Page”. It works great except that it also unhides sheets that are meant to be hidden by when the workbook is opened.
<o> </o>
How would I adjust the following code so any sheets/ tabs containing the words “New Project” are not automatically unhidden? Below is the code pertaining to unhiding. I did not paste the code in its entirety as it is fairly long.
<o> </o>
Option Explicit<o></o>
<o></o>
Const WelcomePage = "Macros"

<HR align=center width="100%" SIZE=2>​

<o> </o>
Private Sub ShowAllSheets()<o></o>
Dim ws As Worksheet<o></o>
<o></o>
For Each ws In ThisWorkbook.Worksheets<o></o>
If Not ws.Name = WelcomePage Then ws.Visible = xlSheetVisible<o></o>
Next ws<o></o>
<o></o>
Worksheets(WelcomePage).Visible = xlSheetVeryHidden<o></o>
End Sub<o></o>
<o> </o>
<o> </o>
Thank you for your help!!!
<o> </o>
Judy

 

[VoG]

Can New Project occur anywhere in the sheet?

 

[WisdomandLaughter]

Currently it would only occur as part of the sheet name or on the tab.

 

[VoG]

Try

Const WelcomePage = "Macros"

Sub ShowAllSheets()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
    If Not ws.Name = WelcomePage Then
        If Not ws.Name Like "*New Project*" Then ws.Visible = xlSheetVisible
    End If
Next ws

Worksheets(WelcomePage).Visible = xlSheetVeryHidden
End Sub

 

[WisdomandLaughter]

Thank you. That works great. Except I have the following code assigned to a button (shape really) that no longer works (the code appears to be making my "New Project" tabs very hidden):

Sub GotoNextHiddenWS()

mySh = Worksheets(Sheet2.Name).Index
'Loop though worksheets and check if hidden
Do While mySh < Worksheets.Count
If Sheets(mySh + 1).Visible = 0 Then
Sheets(mySh + 1).Visible = -1
Sheets(mySh + 1).Select
Exit Sub
Else
mySh = mySh + 1
End If
Loop
End Sub

 

[WisdomandLaughter]

Okay I have edited the GotoNextHiddenWS to unhide the very hidden sheets and it is functioning again.

However the sheet named "Macros" should remain very hidden throughout this loop. Would you be able to suggest how I can achieve that?

Thank you again for all your help.
Judy

 

[VoG]

Can you post your revised code please.

 

[WisdomandLaughter]

My apologies.

Sub GotoNextHiddenWS()
mySh = Worksheets(Sheet2.Name).Index

Do While mySh < Worksheets.Count
If Sheets(mySh + 1).Visible = 2 Then
Sheets(mySh + 1).Visible = -1
Sheets(mySh + 1).Select
Exit Sub
Else
mySh = mySh + 1
End If
Loop
End Sub


As it loops I would like the worksheet named "Macros" to remain very hidden.

 

[VoG]

Try

Sub GotoNextHiddenWS()
mySh = Worksheets(Sheet2.Name).Index
Do While mySh < Worksheets.Count
    If Sheets(mySh + 1).Name <> "Macros" Then
        If Sheets(mySh + 1).Visible = 2 Then
            Sheets(mySh + 1).Visible = -1
            Sheets(mySh + 1).Select
            Exit Sub
        Else
            mySh = mySh + 1
        End If
    End If
Loop
End Sub

 

[WisdomandLaughter]

That appears to cause an endless loop. I'm not sure.

The first click works and the first hidden sheet not macros unhides. The second click of the button (shape really) causes the hour glass that doesn't go away and the Program Not responding box to appear if I close the file.