Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$1" Then
Call Test
End If
End Sub
and now insert a module and copy paste the below - Change the references accordingly if needed
Sub Test()
Dim a As String
a = Range("D1").Value
If a = "" Then
Exit Sub
Else
Columns("A:A").Select 'Select the column in which you have data
Selection.Find(What:=a, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1) = "Yes"
End If
End Sub