Sheet for open/close other Sheets.

[thaahr]

Hello all.
Im looking for a macro which can open/close other sheets. First column shows the name of the sheets i wish to open/close, second column is marked with x if i want the sheet to visible or not. This can go on for 'x'-rows.

Looking forward for help.

 

[Fluff]

Hi & welcome to the board
How about

Sub HideSheets()

   Dim Cl As Range
   
   With Sheets("[COLOR=#ff0000]Sheet1[/COLOR]")
      For Each Cl In .Range("A2", .Range("A" & Rows.Count).End(xlUp))
         If Cl.Offset(, 1) = "x" Then
            Sheets(Cl.Value).Visible = True
         Else
            Sheets(Cl.Value).Visible = False
         End If
      Next Cl
   End With
End Sub

Change sheet name in red to suit.
This will hide sheets that do not have an x in col B