Good Day

I have a workbook with with 15 sheets, each sheet has a lot of entries my objective here is to write a macro that will run through each sheet searching for the word "Shares" in every column and replace it with " Linked Units".

your Help is highly appreciated.

My code Below:

Selection.Replace What:="Shares", Replacement:="Linked Units", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False