Sub replace() ActiveSheet.Columns("B").Replace What:="Sales", _ Replacement:="Sales & Marketing", SearchOrder:=xlByColumns, _ MatchCase:=TrueEnd Sub