Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$B$1" Then
For n = 1 To Sheets.Count
With Sheets(n)
.Visible = IIf(.Name = "INTERFACE" Or .Name = Target.Value, True, False)
If .Name = Target.Value Then .Select
End With
Next n
End If
Application.ScreenUpdating = True
End Sub