Applies To
Font Object.
Description
True if the font is superscripted. Read-write.
Remarks
This property is False by default.
See Also
Characters Object, Subscript Property.
Example
This example makes the last character in cell A1 a superscript.
n = Worksheets("Sheet1").Range("A1").Characters.Count Worksheets("Sheet1").Range("A1").Characters(n, 1).Font.Superscript = _ True