Formating a symbol throughout existing workbook.

Sub SupAllR()

Dim rgFound    As Range
Dim rgLook     As Range
Dim rgLast     As Range

Set rgFound = Cells.Find(what:=Chr(174), after:=[a1], LookIn:=xlFormulas, LookAt:= _
                         xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Set rgLook = rgFound
Set rgLast = rgFound
Do
    If Cells.FindNext(rgLast) = rgLook Then Exit Do
    Set rgFound = Union(rgFound, Cells.FindNext(rgLast))
    Set rgLast = Cells.FindNext(rgLast)
Loop

Call SuperScript(rgFound)
End Sub

Sub SuperScript(rgOp As Range)

Dim cll        As Range
Dim i          As Integer

For Each cll In rgOp
    i = InStr(1, cll, Chr(174))
    cll.Characters(Start:=i, Length:=1).Font.SuperScript = True
Next cll

End Sub