Cycling through Footnotes and Endnote References in a document: Return to List

' This is much more accurate than going after styling (such as superscripts) which can be altered by the User.

  Dim MyFootnote As Footnote
  
For Each MyFootnote In ActiveDocument.Footnotes
  
    MyFootnote.Reference.Select
  
Next
  
Dim MyEndnote As Endnote
  
For Each MyEndnote In ActiveDocument.Endnotes
  
    MyEndnote.Reference.Select
  
Next