True if the font is formatted as superscript; False by default. Read/write Variant.
Example
This example makes the last character in cell A1 a superscript character.
n = Worksheets("Sheet1").Range("A1").Characters.Count
Worksheets("Sheet1").Range("A1") _
.Characters(n, 1).Font.Superscript = True