Find and Replace Macro Not Working

[TooZippy]

This macro was posted in MrExcel some time ago and I found it on the internet in a search. I tried running it but it doesn't work. Any suggestions please?

Thank you,

Jared Z.

Sub Find_and_Replace()

Dim myList, myRange
    Set myList = Sheets("Run Macros").Range("F1:G13") 'two column range where find/replace pairs are
    Set myRange = Sheets("Run Macros").Range("J2:R11") 'range to be searched
    For Each cel In myList.Columns(1).Cells
        myRange.Replace what:=cel.Value, replacement:=cel.Offset(0, 1).Value
    Next cel
End Sub

 

[Fluff]

Can you please explain what you mean by

it doesn't work

 

[TooZippy]

I click "Run" after I select the macro and the values that I want to change in range J2:R11 remain the same. The "Find values are in column "F" and the replace values are in column "G".

Thank you,

JZ

 

[Fluff]

Are you trying to do an exact match, or a partial match?
Also does it need to be case sensitive?
Finally, are the values you are trying to change, hard values or the result of a formula?

 

[TooZippy]

I ran the macro again today and it seems that it is working. However, in the first column (let's say it has a cell reference to column "I") I want to replace that reference with column "Q". It replaces that reference. When it get's to the ninth column, it may already be a reference to column "Q" so that when it changes that reference to column "Y" it will change the first column reference to column "Y" even though it should be a reference to column "Q". Is there a way around this?

Thank you,

Jared Z.

 

[Fluff]

I've absolutely no idea because I don't know what you are trying to do.

 

[Fluff]

Is this a continuation of these two threads?
https://www.mrexcel.com/forum/excel...ace-does-nothing-post5239167.html#post5239167
https://www.mrexcel.com/forum/excel...-cell-references-post5239839.html#post5239839