Copy/Paste into Find/Replace using Macros

[rumbea03]

Does anybody know if it is possible to Copy/Paste into Find/Replace and then Replace All with Macros?

For example:

A1 = "x"
A2 = "y"
B1 to B100 all = "y"

Is there a Macro I can run to find the all values equaling the value in A2 and replacing with the value in A1?

At the end B1 to B100 all = "x".

Thanks!

 

[acw]

HI

How about

range("B1:B100").replace what:=range("A2").value, replacement:=range("A1").value


Tony

 

[rumbea03]

Worked like a dream! Thanks so much.