Find/Replace macro


Replace each match from colum B in column A with column C.

Sub FindReplace()
Dim cel As Range
For Each cel In Range("b1:b200")
Range("a1:a2000").Replace What:=cel.Value, Replacement:=cel.Offset(, 1).Value, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next cel
End Sub