Find, Replace criteria from two reference cells?

[Jeff P]

This is a simple Find and Replace code which I recorded.

Sub Find_Replace()
    Range("A1:J178").Select
    Selection.Replace What:="AAA", Replacement:="BBB", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("A1").Select
End Sub

I have numerous worksheets which i need to export as text files, with only specific name changes.
Is it possible to set up a macro whereby It references two cells. for find and replace?
Something like this:

....
Selection.Replace What:=" The contents of Sheet1 A1", Replacement:="The contents of Sheet1 B1", LookAt:=xlPart, _
...

Thanks for any help!

 

[jasonb75]

Something like

Sub Find_Replace()
    Worksheets("Sheet2").Range("A1:J178").Replace What:=Worksheets("Sheet1").Range("A1").Value, Replacement:=Worksheets("Sheet1").Range("B1").Value, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

It is preferable to qualify each range with sheet name rather than leave it blank and assume that it will be applied to the correct sheet.

 

[Jeff P]

Works Great!!!

Thanks you very, very much, Jasonb75.

Cheers!
Jeff