Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1, 1).Address(0, 0) = "J7" Then
Sheets("O1").Range("A18:A20").EntireRow.Hidden = LCase(Target.Cells(1, 1)) = "c"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1, 1).Address(0, 0) = "J19" Then
Sheets("O2").Range("A18:A20").EntireRow.Hidden = LCase(Target.Cells(1, 1)) = "c"
End If
End Sub