I'm creating acombination of worksheets that will allow me to generate a
printable report page, based on technical and non-technical information input
on a collecting worksheet. Depending on my selections/answers, information
will be copied, displayed, hidden, etc. Some of my information includes the
registered symbol, ®, but I want it to be in superscript. Originally I
formatted the character in the source cells, but only the contents are copied
by my formulas, not the formats. I tried the following macro, to no avail:

Sub FancyR()
With Application.ReplaceFormat.Font
.Superscript = True
.Subscript = False
End With
Cells.Replace What:="®", Replacement:="®", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
End Sub

This macro simply finds an instance and superscripts the entire cell.
That's definitely not what I was intending. Also, it doesn't find the symbol
in any of the cells that have been copied, so they're completely untouched.
Any suggestions? Or, can this even be done?