Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Dim sh As Object, nf As Range
For Each sh In Worksheets
Set nf = Me.Range("A:A").Find(sh.Name, LookIn:=xlValues, lookat:=xlWhole)
If Not nf Is Nothing Then sh.Visible = IIf(UCase(nf.Offset(0, 1)) = "VISIBLE", True, False)
Next
End If
End Sub