Macro to hide all sheets in a list showing hide

[tonywatsonhelp]

Hi Everyone

In sheet Control I have a List of all the sheets in my document
i want to hide some and show other tabs
In column A Range A2:A120 I have the sheets names
in Column B i have either "Hide" or Unhide

I need a macro that when run will Unhide all sheets then hide the ones marked as "Hide"

Please help if you can

Thanks
Tony

 

[Fluff]

How about

Sub tonywatson()
   Dim Cl As Range
   
   With Sheets("Control")
      For Each Cl In .Range("A2", .Range("A" & Rows.Count).End(xlUp))
         If Cl.Value <> "" Then
            If Evaluate("isref('" & Cl.Value & "'!A1)") Then
               Sheets(Cl.Value).Visible = Cl.Offset(, 1) <> "Hide"
            End If
         End If
      Next Cl
   End With
End Sub

 

[tonywatsonhelp]

Thank you |Fluff, this is great
Tony

 

[Fluff]

You're welcome & thanks for the feedback.