Find and paste in different column on same row when found.

[Golem]

Hi I'm using Excel 2016. I'm trying to find a way to look for a value and when that value is found on any row paste a predefined value into column D on that same row. Here is pic to give you an idea if I didnt explain it well. I want the script to find any row with "hey you found me" and on that same row in Column D, put "predefined value".

 

[JLGWhiz]

Sub t()
Dim fn As Range, fadr As String
With ActiveSheet
    Set fn = .UsedRange.Find("Hey you found me", , xlValues, xlWhole)
        If Not fn Is Nothing Then
            fadr = fn.Address
            Do
                .Range("D" & fn.Row) = "Predefined Value"
                Set fn = .UsedRange.FindNext(fn)
            Loop While fn.Address <> fadr
        End If
End With
End Sub