VBA to hide all sheets in a list

[tonywatsonhelp]

Hi Everyone,

I have a list of sheet names in sheet "Welcome" Range "C7:C200"

I just want a macro that will hide all of them

Thanks

Tony

 

[Dryver14]

If this is to work with your question earlier, the code will need amending, if you double click to select a sheet that is hidden it will fail.

 

[tonywatsonhelp]

I've already dealt with that but thank you for pointing it out, and yes it will be working along side that VBA.
Thanks

Tony

 

[Fluff]

Maybe

Sub HideSheets()
   Dim Cl As Range
   For Each Cl In Range("C7:C200")
      On Error Resume Next
      Sheets(Cl.Value).Visible = xlHidden
      On Error GoTo 0
   Next Cl
End Sub

 

[Dryver14]

.visible= false?

 

[tonywatsonhelp]

Thank you fluff that's just prefect

Tony

 

[Fluff]

@Dryver14
I've modified the code, forgot to change it back to xlHidden after using it to unhide the sheets I'd just hidden.
Thanks for spotting that

 

[Fluff]

Glad we could help & thanks for the feedback