Find, Replace with and then replace adjacent cell

Afternoon,

I am trying to create a macro where it finds a a certain word in a column for example C. What i want it to do is find anything that says FWD_EUR and then replace that cell (e.g C2) with CASH_EUR_FWD and after it has done that it replaces the adjacent cell (e.g. D2) with EUR_FWD. I then want this to do the same with FWD_USD to CASH_USD_FWD and adjacent cell to USD_FWD.

Thanks for any help.

Craig

(Complete Amateur)

Hi,

One way:

Sub Replace()
    Dim r As Range, x As Integer, st1(2), st2(2), st3(2)
    st1(1) = "FWD_EUR": st1(2) = "FWD_USD"
    st2(1) = "CASH_EUR_FWD": st2(2) = "CASH_USD_FWD"
    st3(1) = "EUR_FWD": st3(2) = "USD_FWD"
    With Worksheets(1).Range("c:c")

        For x = 1 To 2
            Set r = .Find(st1(x), LookIn:=xlValues)
            If Not r Is Nothing Then
               
                Do
                    r.Value = st2(x)
                    r.Offset(0, 1) = st3(x)
                    Set r = .FindNext(r)
                Loop While Not r Is Nothing
            End If
        Next x
    End With
End Sub

HTH