this is one way of doing it with the SELECT CASE method:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.ScreenUpdating = False
Select Case Range("A17")
Case ""
Sheets("OutriggersSM").Visible = True
Sheets("OutriggersLG").Visible = True
Case "SMALL KIT"
Sheets("OutriggersSM").Visible = True
Sheets("OutriggersLG").Visible = False
Case "LARGE KIT"
Sheets("OutriggersSM").Visible = False
Sheets("OutriggersLG").Visible = True
End Select
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Here if how to make your IF work:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Range("A17").Value = "" Then
Sheets("OutriggersSM").Visible = True
Sheets("OutriggersLG").Visible = True
ElseIf Range("A17").Value = "SMALL KIT" Then
Sheets("OutriggersSM").Visible = True
Sheets("OutriggersLG").Visible = False
'this is where the large kit appears
ElseIf Range("A17").Value = "LARGE KIT" Then
Sheets("OutriggersSM").Visible = False
Sheets("OutriggersLG").Visible = True
End If
Application.ScreenUpdating = True
End Sub
Bookmarks