crieria item in list to replace in another column

[Pamella]

1) List of items to search in column A
2) Range where list is. Contains text to replace


3) Code must loop Column A
4) Search Range("B:B")
5) Replace whatever search item from A is with the word "rate"


Sub Test()
Dim Sh As Worksheet

Set Sh = Sheets("Sheet1")
For Each Cel In Sh.Columns(1).SpecialCells(2)
With Sh.Cells
Set c = Sh.Columns(2).Find(Cel, lookat:=xlPart)


Do Until Cel Is Nothing
If Not Cel Is Nothing Then ' if found an item

Range("B:B").Replace What:=Cel, Replacement:="rate", lookat:=xlPart
End If
Cel = Cel.Offset(1, 0).Value
Loop

End With
Next
End Sub

[SamT]

With Sh
For Each Cel In .Columns(1).SpecialCells(2)
Set c = .Columns(2).Find(Cel, lookat:=xlPart)
Do Until c Is Nothing
c.Replace What:=Cel, Replacement:="rate", lookat:=xlPart
Set c = .Findnext c
Loop
Next
End With

[Pamella]

.

[Pamella]

Thanks SamT,works a charm!