The top portion works when alone. But when I try to add the second one, nothing works. I thank you all, in advance.
I want to set up 6 sets, with each operatinge independently of the same sheet.
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Activate
If Not Application.Intersect(Range("F2"), Range(Target.Address)) Is Nothing Then
Select Case Target.Value
Case Is = "No": Rows("62:74").EntireRow.Hidden = True
Case Is = "Yes": Rows("62:74").EntireRow.Hidden = False
If Not Application.Intersect(Range("F3"), Range(Target.Address)) Is Nothing Then
Select Case Target.Value
Case Is = "No": Rows("76:88").EntireRow.Hidden = True
Case Is = "Yes": Rows("76:88").EntireRow.Hidden = False
End Select
End If
End Sub
I want to set up 6 sets, with each operatinge independently of the same sheet.
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Activate
If Not Application.Intersect(Range("F2"), Range(Target.Address)) Is Nothing Then
Select Case Target.Value
Case Is = "No": Rows("62:74").EntireRow.Hidden = True
Case Is = "Yes": Rows("62:74").EntireRow.Hidden = False
If Not Application.Intersect(Range("F3"), Range(Target.Address)) Is Nothing Then
Select Case Target.Value
Case Is = "No": Rows("76:88").EntireRow.Hidden = True
Case Is = "Yes": Rows("76:88").EntireRow.Hidden = False
End Select
End If
End Sub