Been banging my head off the wall here trying to figure this out with
no luck.

Macropod, do you have an example paragraph I could run this on?

Anyway, by reading the macro you made I was able to figure out how to
find superscript font's.

With this knowledge, and the rest of your macro I may be able to create
a better macro that will meet our needs.

I will let you know.

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 6/5/2006 by William Speers
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "1"
.Replacement.Text = ""
.Forward = True
.Font.Superscript = True
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With