Try this...

Union(Range("S:S"), Range("BA:BA")).Select
Selection.Replace What:="accuracy", Replacement:="accuracy1"
Selection.Replace What:="XS_EXOFF", Replacement:="XS_EXOFF1"

HTH

"hodeware" wrote:

Can someone tell me what's wrong with my code? I am trying to search/replace
several text strings with one macro. Is this possible?

Columns("S:S", "BA:BA").Select
Selection.Replace What:="accuracy", Replacement:="accuracy1"
Selection.Replace What:="XS_EXOFF", Replacement:="XS_EXOFF1"
xlPart , SearchOrder:=xlByRows, MatchCase:=False,
SearchFormat:=False, _
ReplaceFormat:=False

Thanks-