Conditional Hide issue

[ashrayp]

[FONT=&quot]I have the follow script in vba:[/FONT]
[FONT=&quot]Sub ConditionalHide()
Dim cRange As String
cRange = Sheets(1).Range("H3")
For i = 2 To Sheets.Count
Sheets(i).Activate
If Range("H3").Value <> cRange Then
Sheets(i).Visible = False
Else: Sheets(i).Visible = True
End If
Next i
End Sub

The problem is that it gives me Expected error on Line 6. I am new to VBA and cannot make out whats wrong with my code. I am trying to Hide all the sheets that do not match the value in "H3" in Sheet 1.
[/FONT]

 

[Joe4]

Welcome to the Board!

If you have Option Explicit turned on, then you will need to declare the i variable also, i.e.

Sub ConditionalHide()

    Dim cRange As String
    Dim i As Long

    cRange = Sheets(1).Range("H3")

    For i = 2 To Sheets.Count
        Sheets(i).Activate
        If Range("H3").Value <> cRange Then
            Sheets(i).Visible = False
        Else: Sheets(i).Visible = True
        End If
    Next i
    
End Sub

Other than that, the code looks fine to me and worked when I tested it.
Are you sure that you don't have any errors in cell H3 on any sheet?