crieria item in list to replace in another column

[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