My initial reaction is to suggest that you run a separate search
for each string required. Then use Application.Union to put them all together.

Set rngCombined = Application.Union(rngFound, rngFound2, rngFound3)
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"John Hughes"

wrote in message
How do I add addtional textstrings, i.e. "this2", "that" , "whatever", to
the statement listed below? I am trying to search a range to find cells that
contain different names.

Set rngFound = rngToSearch.Find(What:="this", _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
MatchCase:=False)