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