LOCAL oExcel as Excel.application oExcel = CREATEOBJECT([Excel.Application]) oExcel.WorkBooks.Add() oExcel.range('A1').value = [Test Superscript more text] With oExcel.ActiveCell.Characters(1, 5).Font .Name = "Arial" .FontStyle = "Regular" .Size = 10 EndWith With oExcel.ActiveCell.Characters(6, 11).Font .Name = "Arial" .FontStyle = "Regular" .Size = 10 .Superscript = .t. ENDWITH oExcel.Columns.AutoFit() oExcel.visible = .t.>Don,