Try this. It will automatically run each time you change a yes or no value
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C:C")) Is Nothing Then
If Target.Offset(, 2).Value <> "N/A" And Len(Target.Offset(, 2).Value) <> 0 Then
Application.EnableEvents = False
Dim vSplit As Variant: vSplit = Split(Target.Offset(, 2).Value, "-")
Select Case Target
Case Is = "Yes"
Rows(vSplit(0) & ":" & vSplit(1)).Hidden = False
Case Is = "No"
Rows(vSplit(0) & ":" & vSplit(1)).Hidden = True
End Select
Application.EnableEvents = True
End If
End If
End Sub
Bookmarks