I would add the bookmark name by using the commenting function. IMO, that is much more user friendly. The code to do that is as follows.
Code:
Sub LabelBookmarks()
Dim oBM As Bookmark
For Each oBM In ActiveDocument.Bookmarks
ActiveDocument.Comments.Add oBM.Range, "Bookmark: " & oBM.Name
Next oBM
lbl_Exit:
Set oBM = Nothing
Exit Sub
End Sub