VBA Worksheet_Change dependent validation reset dependents to blank

[Biz]

Dear All,

If cell in column P then set Q and R to blank for relevent row in Column Q and R.

If Change in Column Q then set R to blank for relevent row in R.

Range name Master refers to Parent -Highest Level
Range Name UseList to Child - Middle Level

I have code below but it does not work.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
    If Not Intersect(Target, Range("Master")) Is Nothing Then
        Range(Cells(Target.Row, "Q"), Cells(Target.Row, "R")).Value = ""
    'Asset Type Changes
    ElseIf Not Intersect(Target, Range("UseList")) Is Nothing Then
        Range(Cells(Target.Row, "R")).Value = ""
    End If
Application.EnableEvents = True
End Sub

Your help would be appreciated.

Biz

 

[Biz]

I have changed vba now look at current column in change

Private Sub Worksheet_Change(ByVal Target As Range)
'Asset Group Changes
    If Not Intersect(Target.Row, Range("tP")) Is Nothing Then
        Range(Cells(Target.Row, "Q"), Cells(Target.Row, "R")).Value = ""
    'Asset Type Changes
    ElseIf Not Intersect(Target.Row, Range("tQ")) Is Nothing Then
        Range(Cells(Target.Row, "R")).Value = ""
    End If
End Sub

Still it does not work. Any suggestion?