Request for macro: hide worksheet based on cell-value in it's own worksheet

[Giddo123]

I have 20 worksheets. I need to hide those worksheets by macro according to a value in its own specific worksheet. For example,0=hide worksheet, 1=do not hide worksheet:
Worksheet 1, fieldA1=0 --> hide worksheet 1
Worksheet 2, fieldA1=1 --> do not hide Worksheet 1
Worksheet 3, fieldA1=1 --> do not hide Worksheet 3
Worksheet 4, fieldA1=0 --> hide worksheet 4
etc.

 

[Fluff]

Hi & welcome to the board
How about

Sub HideSheets()

   Dim Ws As Worksheet
   
   For Each Ws In Worksheets
      If Ws.Range("A1") = 0 Then Ws.Visible = xlSheetHidden
   Next Ws

End Sub

 

[Rick Rothstein]

Hi & welcome to the board
How about

Sub HideSheets()

   Dim Ws As Worksheet
   
   For Each Ws In Worksheets
      If Ws.Range("A1") = 0 Then Ws.Visible = xlSheetHidden
   Next Ws

End Sub

On the off chance the OP is setting the value of A1 on the various sheets via VB code, you should probably set the sheets visibility to xlSheetVisible if cell A1 on the sheet is 1 as well. Assuming no sheets are VeryHidden, this should work...

Sub HideSheets()

   Dim Ws As Worksheet
   
   For Each Ws In Worksheets
      Ws.Visible = Ws.Range("A1").Value
   Next Ws

End Sub