Set rFound = rng.Find(sWhat, searchorder:=xlByColumns, after:=rLastCell, LookIn:=xlValues)
Set rFound = rng.Find(sWhat, searchorder:=xlByColumns, after:=rLastCell, LookIn:=xlValues, LookAt:=xlWhole)