hide rows based on cell selection

[SSPoulin23]

Good morning,

In cell D22 the user makes a selection - if they choose "No Cost Incurred", I would like rows 33 through 37 to automatically hide. However, if they change the selection, I want the rows to be visible again. D22 has a data validation list and is a merged cell (though I've attempted to remove validation and unmerge the cell to make it work again it hasn't helped).

I've been trying to get this to work, but to no avail:

Private Sub Worksheet_Change(ByVal Target As Range)

'Hide BusOfficeApproval based on D22(registration) entry
If Target.Address = "D22" Then
If Target.Value = "No Cost Incurred" Then
'Hides Rows
ActiveSheet.Rows("33:37").EntireRow.Hidden = True
Else
'Makes row visible
ActiveSheet.Rows("33:37").EntireRow.Hidden = False
End If
End If
End Sub




if there is a better way, I'm all ears, or if there is a simple tweak, that'd be great too. THANK YOU!

 

[keiserj]

Try this

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("D20").Value = "NO COST INCURRED" Then
        Rows("33:37").EntireRow.Hidden = True
    ElseIf Range("D20").Value = "INCURRED" Then
        Rows("33:37").EntireRow.Hidden = False


    End If
End Sub

 

[SSPoulin23]

didn't work. I reposted and someone pointed out that I missed the $ on the cell reference. changing D22 to $D$22 did the trick. thank you!!