What have tried? Few here are going to develop your project for you. If you want friendly names then you are going to have defined names that you can convert to friendly. Something like this to get you started:
Code:
Private Sub UserForm_Initialize()
Dim oBM As Bookmark
For Each oBM In ActiveDocument.Bookmarks
ListBox1.AddItem Replace(oBM.Name, "_", " ")
Next
ListBox1.MultiSelect = fmMultiSelectMulti
End Sub