Made it past there, stuck at the next xlReplaceFormula2:
'replace double spaces with one space rTranslate.Replace What:=" ", Replacement:=" ", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2