Private Sub Userform_Initialize()
     'Late binding. No reference to Excel Object required.
    Dim xlApp As Object
    Dim xlWB As Object
    Dim xlWS As Object
    Dim cRows As Long
    Dim i As Long
    Set xlApp = CreateObject("Excel.Application")
     'Open the spreadsheet to get data
    Set xlWB = xlApp.Workbooks.Open("C:\Users\mark.miller\Desktop \TE1.xls")
    Set xlWS = xlWB.Worksheets(2)
    cRows = xlWS.Range("Rub1a").Rows.Count - xlWS.Range("Rub1a").Row + 1
    LB1a.ColumnCount = 1
     'Populate the listbox.
    With Me.LB1a
        For i = 2 To cRows
             'Use .AddItem property to add a New row For Each record And populate column 0
            .AddItem xlWS.Range("Rub1a").Cells(i, 1)
             'Use .List method to populate the remaining Columns
            .List(.ListCount - 1, 1) = xlWS.Range("Rub1a").Cells(i, 2)
            .List(.ListCount - 1, 2) = xlWS.Range("Rub1a").Cells(i, 3)
        Next i
    End With
     'Clean up
    Set xlWS = Nothing
    Set xlWB = Nothing
    xlApp.Quit
    Set xlApp = Nothing
lbl_Exit:
    Exit Sub
    End Sub
     
Private Sub cb1a_Click()
    For i = 0 To lb1.ListCount - 1
        If lb1.Selected(i) = True Then
            strDocs = strDocs & lb1.List(i) & vbCr
        End If
    Next i
    strDocs = Left$(strDocs, Len(strDocs) - 1)
    ActiveDocument.Bookmarks("bm1a").Range _
    .InsertBefore strDocs
    UserForm1.Hide
End Sub