Multiple Hide Rows Based on Different Cell Values

[DebKshort]

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

 

[Fluff]

Hi & welcome to MrExcel.
How about

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Not Intersect(Target, Range("F2:F7")) Is Nothing Then
      Select Case Target.Address(0, 0)
         Case "F2"
            Rows("62:74").Hidden = Target.Value = "No"
         Case "F3"
            Rows("76:88").Hidden = Target.Value = "No"
      End Select
   End If
End Sub

 

[DebKshort]

Hi & welcome to MrExcel.
How about

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Not Intersect(Target, Range("F2:F7")) Is Nothing Then
      Select Case Target.Address(0, 0)
         Case "F2"
            Rows("62:74").Hidden = Target.Value = "No"
         Case "F3"
            Rows("76:88").Hidden = Target.Value = "No"
      End Select
   End If
End Sub

This worked perfectly. Thank you so much!

 

[Fluff]

You're welcome & thanks for the feedback.