oExcel = CREATEOBJECT([Excel.Application]) oExcel.WorkdBooks.Add() oExcel.Cell(1,1).Text = [asdasd asd asd asdasdasdasdasdasd] With oExcel.ActiveCell.Characters(1, 5).Font .Name = "Arial" .FontStyle = "Regular" .Size = 10 EndWith With oExcel.ActiveCell.Characters(6, 5).Font .Name = "Arial" .FontStyle = "Regular" .Size = 10 .Superscript = .t. EndWith EndWithNot tested because I have no MS Office installed on my computer, so maybe I am completely wrong.