Macro to run find and replace.

[andrewb90]

Hello all,

I was trying to see if this was possible. To have a macro select the range m3:x12 and then do a find and replace:
find the value in > replace with value of
A2 B2
A3 C2
A4 D2
A5 E2
A6 F2


amy help would be greatly appreciated.

 

[AliGW]

Have you tried recording the macro?

 

[andrewb90]

Macro recorder doesn't appear to be useful for this. I can't search for cell references.

 

[Teeroy]

Try:

Sub Replace_By_Position()
Dim i As Integer
Dim sOld As String, sNew As String

For i = 2 To 6
    sOld = Cells(i, 1)
    sNew = Cells(i, 2)
    Range("M3:X12").Replace sOld, sNew, xlPart
Next i
End Sub

Since a worksheet isn't specifically mentioned it works on the ActiveSheet.