Как удалить значение в ячейке B, если ячейка A = да

Question

Я хочу иметь возможность удалить значение в ячейках B: B, если значение в A: A = да

Это то, что я пытался, но не работает, может быть, я поместил код в неправильном месте?

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If Target = yes Then
            Range("B" & Target.Row).Clear
        End If
    End If
End Sub