>>oExcel.range('A1').value = "Textwithsuperscript" + somecontrolcode + '1' >>>>
>With ActiveCell.Characters(Start:=1, Length:=5).Font > .Name = "Arial" > .FontStyle = "Regular" > .Size = 10 > .Strikethrough = False > .Superscript = False > .Subscript = False > .OutlineFont = False > .Shadow = False > .Underline = xlUnderlineStyleNone > .ColorIndex = xlAutomatic > End With > With ActiveCell.Characters(Start:=6, Length:=5).Font > .Name = "Arial" > .FontStyle = "Regular" > .Size = 10 > .Strikethrough = False > .Superscript = True > .Subscript = False > .OutlineFont = False > .Shadow = False > .Underline = xlUnderlineStyleNone > .ColorIndex = xlAutomatic > End With > Range("D17:D18").Select > Range("D18").Activate > Application.CommandBars("Stop Recording").Visible = False > Range("A2").Select >End SubThanks Naomi. That was enough. I didn't think to try a macro. duh!