Find/Replace Macro

[rmsbcb]

I have a column with the following data
cat (dog)
blue
blue (dog)
blue (cat)
How can I write a macro to find all cells within the column that contain "(dog)" and replace the entire contents of the cell with "dog"?

 

[Harvey]

Sub x()
    
    [A1:A20].Replace What:="(dog)", Replacement:="dog"

End Sub

 

[rmsbcb]

When I used that it replaced "(dog)" with "dog" within the cell I need every cell that contains "(dog)" either by itself or as part of a list to be replaced with just "dog"

 

[Harvey]

you can use wildcards to replace the whole string:

[A1:A20].Replace What:="*(dog)*", Replacement:="dog"

this replaces anything with (dog) in it with just "dog"

 

[just_jon]

Find/Replace use settings from the last pass, so if you're wanting to replace partial cell contents, best to be explicit --

... .Replace What:="xx", Replacement:="x", LookAt:=xlPart