I am trying to make it a macro as it is part of a larger clean-up macro.

I am unsure how to determine if the last space(s) in a footnote's text is part of a hyperlink's .TextToDisplay or if it is just regular text (the Range's "Text" or "FormattedText" or "Characters.Last")?

And I'm not sure why the code I posted doesn't delete the last space character (fn.Range.Characters(j).Delete).

I created a sample document with some footnotes and added spaces to the end of them. The code runs but doesn't delete the space at the end. It will delete other characters (change "j" to "5", and it deletes a whole range for some reason, so I don't think this is the right approach).