Agregar el texto de las 4 celdas del primer renglon como headers de un listbox

Denunciar
-
Hola, tengo exte codigo que ya me funciona para agregar los valores a u list box , pero no pone nombre a las columnas (headers). ¿como agregar agregar el texto de las 4 celdas del primer renglon como headers de un listbox ?,
¿ no existe algo como un listbox2.column(0)="header1"?

header1 header 2 header3
papa perro agua
cebolla gato refresco
pepino caballo vino



For fila = 2 To ultima_fil
valor_brinco = sh.Cells(fila, 4).Value


If UCase(valor_brinco) = UCase(caption_seleccionado) Then
UserForm1.ListBox2.AddItem
UserForm1.ListBox2.List(Y, 0) = Sheets(1).Range("A" & fila)


UserForm1.ListBox2.List(Y, 1) = Sheets(1).Cells(fila, 2).Value
UserForm1.ListBox2.List(Y, 2) = Sheets(1).Cells(fila, 3).Value
UserForm1.ListBox2.List(Y, 3) = Sheets(1).Cells(fila, 4).Value
Y = Y + 1
Else
End If
Next fila