A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data.
Use:
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case Is = "$B$4"
If UCase(Target.Value) = "YES" Then
ActiveSheet.Range("126:153").EntireRow.Hidden = True
Else
ActiveSheet.Range("126:153").EntireRow.Hidden = False
End If
Case Is = "$C$4"
If UCase(Target.Value) = "YES" Then
ActiveSheet.Range("154:187").EntireRow.Hidden = True
Else
ActiveSheet.Range("154:187").EntireRow.Hidden = False
End If
Case Is = "$D$4"
If UCase(Target.Value) = "YES" Then
ActiveSheet.Range("188:204").EntireRow.Hidden = True
Else
ActiveSheet.Range("188:204").EntireRow.Hidden = False
End If
End Select
End Sub