Super Copyrights

Today I changed a term in one of my documents to use a fancy, new term which has a copyright.  For some reason (which I'll ignore for now) when I replaced the term, the copyright symbol was not put into superscript. So, macros to the rescue:

Sub copyrightToSuperscript()
'
' copyrightToSuperscript Macro
'
' Change all copyright symbols to superscript

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Superscript = True
        .Subscript = False
    End With
    With Selection.Find
        .Text = "©"
        .Replacement.Text = "©"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub

I originally thought that I would need to use the ASCII code for the symbol, but the macro works just fine as written above.