True if the font is formatted as superscript; False by default. Read/write Variant.
Syntax
expression.Superscript
expression A variable that represents a Font object.
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