Try this (insert code in relevant Worksheet Module)
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$B$39"
If Target.Value = "No" Then
Me.Range(Rows(40), Rows(66)).Hidden = True
ElseIf Target.Value = "Yes" Then
Me.Rows(40).Hidden = False
Me.Range(Rows(41), Rows(66)).Hidden = True
End If
Case "$B$40"
If Target.Value = "No" Then
Me.Range(Rows(41), Rows(66)).Hidden = True
ElseIf Target.Value = "Yes" Then
Me.Rows(41).Hidden = False
Me.Range(Rows(42), Rows(66)).Hidden = True
End If
Case "$B$41"
Me.Range(Rows(42), Rows(41 + Target.Value)).Hidden = False
Me.Range(Rows(42 + Target.Value), Rows(66)).Hidden = True
End Select
End Sub
Bookmarks