MSWord Reference Range

I had some trouble figuring out how to use MS Words simple footnote/endnote reference tool with regard to adding a range of references. I found help here: http://word.tips.net

In summary, I found it relatively easy to create the macro (below) and then I could highlight the numbers in the middle of the range and format them to be hidden with a hyphen in their place.

Macro:

Sub RefListToRange()

Selection.Font.Hidden = True

Selection.Collapse (wdCollapseEnd)

Selection.TypeText Text:="–" 

End Sub