Auto hide/unhide based on cell value

I am trying to have Rows 6:8 hide/unhide depending on the value in cell B5 which I named Paint. After doing some searching on here I found some code that I thought would work. The Paint_Option sub runs properly when stepping through it, but I am struggling with making it run when B5 is updated.

Sub Paint_Option()

    If Range("B5").Value = "Yes" Then
        [6:8].EntireRow.Hidden = False
    Else
        [6:8].EntireRow.Hidden = True
    End If


End Sub

Sub worksheet_change(ByVal target As Range)
Set target = Range("B5")
    If target.Value = "Yes" Then
        Call Paint_Option
    End If
    
    If target.Value = "No" Then
        Call Paint_Option
    End If

End Sub

Thank you!

mehmetcik,

Thank you for your quick reply. I tried changing the code to what you have, but the sheet is still not updating when B5 is updated. Is there something else that I am missing?

Sub worksheet_change(ByVal target As Range)
    If target.Address <> "$B$5" Then Exit Sub
    If target.Value = "Yes" Then
        Rows("6:8").EntireRow.Hidden = True
    Else
        Rows("6:8").EntireRow.Hidden = False
    End If
End Sub

mehmetcik,

I did have the code in the wrong place, however after moving it to the correct location it still doesn't work for me. I downloaded the file you edited and the macro is not running whenever B5 is changed from either Yes or No. I am not sure what would be causing different results on this one. Is there setting that I need to enable? Other macros seem to be working correctly.

Thank you!