Hide row based on cell value

[glenn0004]

I have been asked to create a check sheet where D16 is a drop-down data validation with 26 options, our of those options there are 6 options that do not require addition cells to updated and I would like to hide the rows that contain these calls.

There are two instances of this type of scenario in the same sheet based on different drop downs.

I have currently got the below code which some times (?) works can this be made simpler?

Thanks as always in advance.

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="bunny"
    Select Case Target.Address(False, False)
        Case "D16"
            Rows(24).Hidden = Target.Value <> "Maintenance Inclusive Lease"
            Rows("18:20").EntireRow.Hidden = Target.Value = "Cash"
            Rows("18:20").EntireRow.Hidden = Target.Value = "Cash - 3rd Party"
            Rows("18:20").EntireRow.Hidden = Target.Value = "PO Only"
            
        Case "J32"
            Rows(48).Hidden = Target.Value <> "Minimum Bill"
        
    End Select
    
       ActiveSheet.Protect Password:="bunny"
       
End Sub

 

[AlphaFrog]

These lines have to be ORs otherwise the last line is the one that remains

            Rows("18:20").EntireRow.Hidden = Target.Value = "Cash"
            Rows("18:20").EntireRow.Hidden = Target.Value = "Cash - 3rd Party"
            Rows("18:20").EntireRow.Hidden = Target.Value = "PO Only"

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] Worksheet_Change([color=darkblue]ByVal[/color] Target [color=darkblue]As[/color] Range)
    ActiveSheet.Unprotect Password:="bunny"
    
    [color=darkblue]Select[/color] [color=darkblue]Case[/color] Target.Address(False, False)
        [color=darkblue]Case[/color] "D16"
            Rows(24).Hidden = Target.Value <> "Maintenance Inclusive Lease"
            [B]Rows("18:20").EntireRow.Hidden = Target.Value = "Cash" [color=darkblue]Or[/color] Target.Value = "Cash - 3rd Party" [color=darkblue]Or[/color] Target.Value = "PO Only"[/B]
        [color=darkblue]Case[/color] "J32"
            Rows(48).Hidden = Target.Value <> "Minimum Bill"
        
    [color=darkblue]End[/color] [color=darkblue]Select[/color]
    
    ActiveSheet.Protect Password:="bunny"
       
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

 

[My Aswer Is This]

A Worksheet_Change event: triggers when you change a cell (or range of cells) value manually or in a macro -- it will not be triggered from a change showing up in a formula or from a change.
Learn more here:Event Macros, Worksheet Events and Workbook Events