I have the follow script in vba:
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...