Great! We did it at last! Actually, the task was quite simple. Obviously, it was the desire to help with the whole macro, not part of it that caused misunderstanding. All is good that ends good! RobiNew, thank you for your kind words, but I know my level, it's much-much lower than that of gurus' on this forum. Hope to hear from you soon!
PS.
This part of Greg 's code will also do the job:
Code:
With ftNote
.Range.Characters.First.Previous.Delete
.Range = supLetter & " " & .Range
.Range.Characters.First.Font.Superscript = True
End With