VBA Unhide sheets with condition

[sbv1986]

Hi all:

I have workbook Main.xlsx with 11 sheets (DATA, branch1, branch2, branch3, branch4, branch5, branch6, branch7, branch8, branch9, branch10).

In Cell A1 when I type "branch1", All sheets(branch2,....branch10) hide
when I type "branch2", All sheets(branch1, branch3,....branch10) hide .... ect

How can I do this by macro??

Thanks./.

 

[Takae]

please copy/paste on Sheet Module of DATA sheet.
Hope this helps.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws  As Worksheet, wn As String
    If Intersect(Target, Range("A1")) Is Nothing Then
        Exit Sub
    Else
        wn = Range("A1").Value
        For Each ws In Worksheets
            If ws.Name <> wn And ws.Name <> "DATA" Then
                ws.Visible = False
            Else
                ws.Visible = True
            End If
        Next
    End If
End Sub

 

[sbv1986]

Thanks, It's working