Looping with find and replace

Hi,

Can someone tell me how loop this code downwards over the A and B columns? Right now, it works on sheet 1 only to replace all instances of the text in Sheet 3, A1, with the text in Sheet 3, B1, but I want it to do the same thing again, replacing A2 with B2, etc, and then stop when it hits a blank cell in the A column.

Sub ExecuteSearches()
'
' ExecuteSearches Macro
'
    Sheets("Sheet1").Select
    Cells.Replace What:=Sheets("Sheet3").Range("A1"), Replacement:=Sheets("Sheet3").Range("B1"), LookAt _
        :=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False


End Sub

Thanks for reading

try this

Sub ExecuteSearches()
'
' ExecuteSearches Macro
'
    For i = 1 To Sheet3.Cells(1, 1).End(xlDown).Row
    Sheets("Sheet1").Select
    Cells.Replace What:=Sheets("Sheet3").Range("A" & i), Replacement:=Sheets("Sheet3").Range("B" & i), LookAt _
        :=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Next i

End Sub

Thanks a lot, that's exactly what I was looking for!

Okay, maybe I spoke a little too soon... The loop does exactly what's required, it just crashes the program right after. Could it be that it isn't stopping when it hits the blank cells?

Assume you are testing with more data than just A1 and B1, with no blank cells, right ?

Can you describe "crashes" ?
and "right after" ?

Does it fault with anything highlighted ?

May be upload a sample worksheet.

Thanks for the reply. By "crashes", I mean that the program performed all the search and replaces like it's supposed to, then the program locks right up, with the cursor turning into the rotating icon thing. I've attached a sample sheet with the macro assigned to the "Re-execute Searches" button. There's nothing highlighted, since once you've run it, you have to restart the program.

Problem is due to my assumption that Sheet3 would be "Sheet3", not "Sheet2".
change this

For i = 1 To Sheet3.Cells(1, 1).End(xlDown).Row

to this

For i = 1 To Sheets("Sheet3").Cells(Rows.Count, 1).End(xlUp).Row

Hope that works for you.

Thanks, that's working exactly as it should now.