Show/Hide Sheets Based on Cell Value

[JohnSlider]

Hello --

I have a workbook with multiple hidden worksheets. There are varying circumstances when the user would be expected to fill out any of them. Is there an easy way to make the workbook recognize if Cell A1 = XXXX, then sheets X, Y, Z are shown; if Cell A1 = YYYY, then Sheets A, X, Y are shown, etc.?

I would appreciate any help!

Thank you!
John

 

[Roxxien]

There is a possibility with a "change" macro

Here is a possibility to do it in the following code.

However, if there is too many sheets to hide, it will be useful to create a loop that hide every sheet then any show the good one.

Sub worksheet_change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
    If Target = "XXXX" Then
        Sheets("sheet x").Visible = True
        Sheets("sheet y").Visible = True
        Sheets("sheet z").Visible = True
        Sheets("sheet a").Visible = False
    ElseIf Target = "YYYY" Then
        Sheets("sheet a").Visible = True
        Sheets("sheet x").Visible = True
        Sheets("sheet y").Visible = True
        Sheets("sheet z").Visible = False
    End If
End If
End Sub

 

[Vtookup]

Hi Roxxien.
I found this helpful to what i'm working on. I have 10 worksheets with 5 macros.
i just don't understand why the sub won't run, only 5 of my macros are available for testing.
why is this and how could i make it to run? Thanks