Macro to Find and replace for a list of words

[tonywatsonhelp]

Hi Everyone,
I have a list of Find and replace words in sheet Control.
Column H2:H (Last row) is the find words
Column I2:I (Last row) is the Replace words
I just want a macro to run a find and replace for these words on sheet(Raw Data)

please help if you can

Thanks
Tony

 

[Misca]

Try something like

Sub ReplaceText()

Dim Rng As Range
Dim c As Range

With Sheets("Control")
    Set Rng = .Range("H2:H" & .Cells(.Rows.Count, 8).End(xlUp).Row)
End With

For Each c In Rng
        Sheets("Raw Data").Cells.Replace _
            What:=c.Value, _
            Replacement:=c.Offset(, 1).Value, _
            LookAt:=xlPart
Next c

End Sub