Hide all sheets but a selected one which is not the active sheet

[gordonc068]

Hi all,

IO have a workbook with many sheets, only some of which the end user interacts with. I have created a Landing Page which has buttons that a pushed to reveal the appropriate sheets based on the action the person wants to take with the workbook. In the case that someone selects the wrong button I would like an easy way for them to rehide all the sheets and return to the Landing Page.

I have seen a lot of posts about making everything be hidden except the active sheet but the landing page will never be the active sheet in this case. Can anyone help me with this? The page Name I would like to remain unhidden on the button click is "Welcome Page - Enable Macros".

Thank you much.
Chris

 

[Jonmo1]

Try

Sub HideSheets()
Dim ws As Worksheet
Worksheets("Welcome Page - Enable Macros").Visible = True
For Each ws In Worksheets
    If ws.Name <> "Welcome Page - Enable Macros" Then ws.Visible = False
Next ws
End Sub

 

[seattlerose]

You can try this it should work

Sub HideAllSheetsBarOne()
Dim sht As Object

For Each sht In Sheets
If sht.Name <> "Welcome Page" Then
sht.Visible = xlSheetHidden
End If
Next sht

End Sub

 

[gordonc068]

Try

Sub HideSheets()
Dim ws As Worksheet
Worksheets("Welcome Page - Enable Macros").Visible = True
For Each ws In Worksheets
    If ws.Name <> "Welcome Page - Enable Macros" Then ws.Visible = False
Next ws
End Sub

Worked like a charm, thank you very much.

 

[Jonmo1]

You're welcome.