Assuming you are not using a multi-select listbox, the code might look like this if you also assume you want to put the contents of the second column into the location of the bookmark name which appears in the first column
ActiveDocument.Bookmarks(ListBox1Area.Value).range .text = ListBox1Area.List(ListBox1Area.ListIndex, 1)
|