Hi macropod! I didn't do anything stupid on activating your macro. The only stupid thing I did was to think that an expert could easily modify my bit of code. But perhaps the idea was not so stupid after all, because Vivka has now done what I expected from an expert. Here below is my simple macro with Vivka's modifications. It works perfectly in both areas. All the best!


Sub AddSuperscriptLetterToFootnotes()
Dim ftNote As Footnote
Dim supLetter As String
Dim i As Integer

supLetter = "a"
'Loop through all footnotes
For i = 1 To ActiveDocument.Footnotes.Count
Set ftNote = ActiveDocument.Footnotes(i)

'Main Document Reference
With ftNote.Reference
.InsertAfter supLetter
.Characters(.Characters.Count).Font.Superscript = True
End With

'Footnote Text Area
With ftNote.Range
.Characters.First.Previous = supLetter & Chr(32)
.Characters.First.Font.Superscript = True
End With
Next i
MsgBox "Superscript letters added to footnote references.", vbInformation