Superscript Property 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