WITH oRange.Find .text = '[specialprices]' .matchcase = .f. .format = .f. .replacement.font.name = 'Courier New' .replacement.font.size = 9 .replacement.paragraphFormat.leftindent = 36 .replacement.text = lSpecialPrices lfound = .Execute(,,,,,,,,,,2) && Run and Replace All ENDWITHIf lSpecialPrices = 'Run Spot Run' it works fine, but if lSpecialPrices looks like 'TEXT TEXT'+CHR(13)+'TEXT TEXT'+CHR(13)+'TEXT TEXT' then I get the OLE error above.