cMemoRest = cMemoText nMemoLen = MIN (LEN (cMemoRest), 254) DO WHILE nMemoLen > 0 cMemoInsert = LEFT (cMemoRest, nMemoLen) mysheet.activecell.Value = mysheet.activecell.Value + cMemoInsert cMemoRest = IIF (nMemoLen < LEN (cMemoRest), SUBSTR (cMemoRest, nMemoLen + 1), "") nMemoLen = MIN (LEN (cMemoRest), 254) ENDDOJay