Thank you Vivka! Unfortunately your code doesn't work in my macro. Please note that I need an "a" after all footnote numbers in the footnote area. I need a modification of my line '.Characters(1).Font.Superscript = True' to obtain '1a ' instead of '1 a'. All the best!

Thank you gmaxey! As you certainly know by now I'm not an expert. If you prefer not to modify my code (which works all right for '1 a', but not for '1a '), then please suggest a macro that does the job in both the main document and the footnote area, because that is what my macro does (correctly in the main document: '1a'). All the best!