In that case you would do better to insert the characters during the original Find/Replace, rather than after it. For example, after:
Application.ScreenUpdating = False
insert:
Dim Rng As Range
and after:
.Borders.Enable = True
insert:
Code:
Set Rng = .Duplicate
With Rng
.Collapse wdCollapseStart
.Text = ChrW(2588)
With .Font
.Size = 8
.Color = 49407
.Superscript = True
End With
End With
Of course, you'll want to change ChrW(2588) to reflect whatever your prefix character is.