Do Find & Replace multiple times using data in Col B for find & data in Col C for replace

Hi -

Give a try using FIND method;

Sub test()
On Error Resume Next
For Each r In Range("b8:b" & Cells(Rows.Count, 2).End(xlUp).Row)
    With Columns(1)
        Set c = .Find(r.Value, , , 2)
            If Not c Is Nothing Then
                f = c.Address
                Do
                    c.Value = Replace(c.Value, r.Value, r.Offset(, 1).Value)
                Set c = .FindNext(c)
                Loop Until f = c.Address
            End If
    End With
Next
End Sub

Regards,
event

It worked - Thanks
BUT - I try to learn from you guys so I would like a tad bit more help here - PLEASE!
If I wanted to use this other times - with other configurations - what is it that is now Column A, what is it that is now column B and what is it that is now column C?
I tried to play with your solution by putting the data that is now in B & C into C & D and then changed your macro - changing each b to c and each c to d, but it did not run.
Thanks