VBA to Hide sheets based on Cell

[5h1v]

I am looking to hide/unhide every sheet in my workbook if the value in D1 is Yes then the sheet should be visible, if D1 is not yes then hide the sheet.

Seems simple enough but I am struggling, any help would be appreciated.

 

[Fluff]

How about

Sub fiveh1v()
   Dim Ws As Worksheet
   
   For Each Ws In wotksheets
      If Ws.Range("D1").Value = "Yes" Then
         Ws.Visible = xlSheetVisible
      Else
         Ws.Visible = xlSheetHidden
      End If
   Next Ws
End Sub

 

[5h1v]

That gives me error 400 and I created a workbook with 5 sheets

Sheet 1 D1 = Yes
Sheet 2 D1 = No
Sheet 3 D1 = No
Sheet 4 D1 = No
Sheet 5 D1 = Yes

and it hides all bar sheet 5, any ideas?

 

[5h1v]

Nevermind I got it working now

Sub Hide()
    Application.ScreenUpdating = False
    Dim wsSheet As Worksheet
    For Each wsSheet In ActiveWorkbook.Worksheets
        wsSheet.Visible = xlSheetVisible
    Next wsSheet
    Application.ScreenUpdating = True

   Dim Ws As Worksheet
   
   For Each Ws In Worksheets
      If Ws.Range("D2").Value = "Yes" Then
         Ws.Visible = xlSheetVisible
      Else
         Ws.Visible = xlSheetHidden
      End If
   Next Ws
    Application.ScreenUpdating = True
End Sub

This seems to work thanks for the help

 

[Fluff]

You're welcome & thanks for the feedback