Pasar datos de tabla a ListBox en Excel

Comparto el siguiente ejemplo en el que pasamos datos de una tabla a un objecto ListBox que está en un formulario.

Imagen del formulario en acción:

Código del formulario (con comentarios):

Private Sub UserForm_Initialize()
With Lista
    'Asignamos 3 columnas de la tabla
    .ColumnCount = 3
    'Definimos el tamaño de las columnas
    .ColumnWidths = "60 pt;60 pt; 70 pt"
    'Definimos como fila de títulos, la primera fila de nuestra tabla
    .ColumnHeads = True
End With
'Recogemos los datos de la tabla
Lista.RowSource = "Tabla1"
End Sub

:: Descarga el ejemplo