Thanks for the quick response AlphaFrog. Appreciate it.
Here is the code (hopefully I added it correctly, it's a bit of a long one, probably a shorter way to do it but it "works" so to speak). Thanks again.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("J4,J21,J31,J40,J53,F60,F68")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
If Range("J4") = "Yes" Then
Rows("6:18").Select
Selection.EntireRow.Hidden = False
Range("J4").Select
End If
If Range("J4") = "No" Or Range("J4") = "Select One" Then
Rows("6:18").Select
Selection.EntireRow.Hidden = True
Range("J4").Select
End If
If Range("J21") = "Yes" Then
Rows("23:28").Select
Selection.EntireRow.Hidden = False
Range("J21").Select
End If
If Range("J21") = "No" Or Range("J21") = "Select One" Then
Rows("23:28").Select
Selection.EntireRow.Hidden = True
Range("J21").Select
End If
If Range("J31") = "Yes" Then
Rows("33:37").Select
Selection.EntireRow.Hidden = False
Range("J31").Select
End If
If Range("J31") = "No" Or Range("J31") = "Select One" Then
Rows("33:37").Select
Selection.EntireRow.Hidden = True
Range("J31").Select
End If
If Range("J40") = "Yes" Then
Rows("42:50").Select
Selection.EntireRow.Hidden = False
Range("J40").Select
End If
If Range("J40") = "No" Or Range("J40") = "Select One" Then
Rows("42:50").Select
Selection.EntireRow.Hidden = True
Range("J40").Select
End If
If Range("J53") = "Ok" Then
Rows("55:76").Select
Selection.EntireRow.Hidden = False
Range("J53").Select
End If
If Range("J53") = "Select Ok" Then
Rows("55:76").Select
Selection.EntireRow.Hidden = True
Range("J53").Select
End If
If Range("F60") = "Yes" Then
Rows("61:66").Select
Selection.EntireRow.Hidden = False
Range("F60").Select
End If
If Range("F60") = "No" Or Range("F60") = "Select One" Then
Rows("61:66").Select
Selection.EntireRow.Hidden = True
Range("F60").Select
End If
If Range("F68") = "Yes" Then
Rows("69:73").Select
Selection.EntireRow.Hidden = False
Range("F60").Select
End If
If Range("F68") = "No" Or Range("F68") = "Select One" Then
Rows("69:73").Select
Selection.EntireRow.Hidden = True
Range("F68").Select
End If
End If
End Sub
Bookmarks