for loop VBA

[JoyStrassen]

Hi, I am trying to make a for loop that hides sheets if a certain cell says No. The function is only working for one sheet and I can't work out why!

Sub testmacro()
'
For i = 4 To Sheets.Count
Worksheets(i).Activate
If WorksheetFunction.XLookup(Range("O3"), Range("B6:B19"), Range("C6:C19")) = "No" Then
Sheets(4).Visible = False
Else: Sheets(4).Visible = True
End If
Next i

End Sub

Thank you very much in advance!

 

[Joe4]

Welcome to the Board!

No matter what it evaluates to, you are only changing Sheet 4!
Change this:

Sheets(4).Visible = False
Else: Sheets(4).Visible = True

to this:

Sheets(i).Visible = False
Else: Sheets(i).Visible = True

 

[JoyStrassen]

Welcome to the Board!

No matter what it evaluates to, you are only changing Sheet 4!
Change this:

Sheets(4).Visible = False
Else: Sheets(4).Visible = True

to this:

Sheets(i).Visible = False
Else: Sheets(i).Visible = True

Oh my goodness that is so obvious thank u! Clearly I had been starting at it so long

 

[Joe4]

You are welcome.

No worries, we have all been there!