VBA for finding a text string and replacing with text in another cell

[DDT~123]

Greetings All,

I'm needing help with VBA which would find the word "FMLA" which will be in Column D, and replace the text in Column A with an "X".

The code I'm using for other searches on the spreadsheet is

   Cells.Replace What:="Total", Replacement:="X Total", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

 

[nuked]

Option Explicit

Sub PutX()

On Error GoTo errhandler

ActiveSheet.Columns("D").Find("FMLA").Offset(, -3) = "X"

Exit Sub

errhandler:

    MsgBox "Not found"
    Err.Clear
    
End Sub

 

[Bairn90]

Sub Find()


For Each cell In Range("D1:D100")
If cell.Value = "FMLA" Then
cell.Offset(0, -3).Formula = "X"
End If
Next cell


End Sub