Find partial text and replace entirely

[vostroxe]

Anyone have any idea to find partial text and replace it entirely. For example, in first row, the header contain Apple Juice. I want to make it become "Apple" only. Below code simply does not work & I cannot put the exact word because it has alot of Apple products. To simplify, I want to find all the header contain word " Apple" and replace with only "Apple".

Range("A1:AZ1").Replace What:="Apple", Replacement:="Apple"

[TMS]

See https://docs.microsoft.com/en-us/off....range.replace

[Sintek]

Range("A1:AZ1").Replace What:="*Apple*", Replacement:="Apple"