Debra Ann:

Let's assume you have a UserForm with a ListBox called lstEndnote, and a
command button called cmdInsert. You'll also need a variant field to get the
cross-references. Say we call this varXRefs.

Here's some code that would populate the ListBox with just the endnotes. It
also enables or disables the cmdInsert button based on whether or not the
active document has any endnotes. You'd have to write the code for the rest
of the UserForm controls, but I don't want to leave you without challenges.

Let me know if you get stuck.

Bear

Sub UpdateEndnoteList()

' Fill lstEndnote with the endnotes from the
' active document

Dim varXRefs As Variant
Dim Index As Integer

' Clear out any previous contents

Me.lstEndnote.Clear

' Load just the endnotes into varXRefs

varXRefs = ActiveDocument.GetCrossReferenceItems _
   (ReferenceType:=wdRefTypeEndnote)

' Load the ListBox from varXRefs as an array

For Index = 1 To UBound(varXRefs)
   Me.lstEndnote.AddItem varXRefs(Index)
Next Index

' Test whether the list has any entries and
' set command buttons accordingly

If Me.lstEndnote.ListCount > 0 Then
   Me.lstEndnote.ListIndex = 0
   Me.cmdInsert.Enabled = True
Else
   Me.cmdInsert.Enabled = False
End If

End Sub