Superscript Macro

Coleman,
The easiest way to do what you want is to recored a macro and perform the actions. I simply typed in your text, click record macro and then changed the text to superscript. I then went in and edited the macro to reveal the code for what you did. Notice the superscript variable field. That's what you need to change in your macro.

With Selection.Font
.Name = "Times New Roman"
.Size = 12
.Bold = False
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.Color = wdColorAutomatic
.Engrave = False
.Superscript = True
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 0
.Animation = wdAnimationNone
End With