Superscript Property

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