Place this code In a standard module: 
 
Option Explicit 
 
Sub ListBoxForm() 
    UserForm1.Show 
End Sub 
 
 
Place this code In the module For your userform: 
 
Option Explicit 
 'Populate a multi-column combo and list box with values from spreadsheet
 'when the form is loaded
Private Sub UserForm_activate() 
     
    Dim MyList(10, 3) 'as array type
    Dim R As Integer 
     
     'The list box contains 3 data columns.
     'You can configure the number of columns, their width and height below
     'as well as change the text in the ControlTipText of the listbox
    Application.ShowToolTips = True 
    With ListBox1 
        .ColumnCount = 3 
        .ColumnWidths = 75 
        .Width = 230 
        .Height = 110 
        .ControlTipText = "Click the Name, Job, or ID you're after" 
    End With 
     
     'Define the list and where it's obtained from (Columns A, D, G in this example)
    With ActiveSheet 
         
         'MyList (Row{0 to 9}, Column{0 to 2}) = the ranges given
        For R = 0 To 9 
            MyList(R, 0) = .Range("A" & R + 1) 
            MyList(R, 1) = .Range("D" & R + 1) 
            MyList(R, 2) = .Range("G" & R + 1) 
        Next R 
    End With 
     
     'populate the list box
    ListBox1.List = MyList 
     
End Sub 
 
 'When a name in the listbox is clicked, select the corresponding row
Private Sub listBox1_Click() 
     
    Dim Employee As Variant 
    Dim Name As String 
    Dim firstaddress As String 
     
    Employee = Empty 
     'If you add more than 500 names you will need to increase this
    With ActiveSheet.Range("a1:a500") 
        Name = ListBox1.Value 
        Set Employee = .Find(what:=Name, LookIn:=xlValues) 
        If Not Employee Is Nothing Then Employee.Rows.EntireRow.Select Else Exit Sub 
    End With 
     'closes the form when you click on a name
    Unload Me 
    Set Employee = Nothing 
     
End Sub