List box with multiple columns and headings

[Khaos176]

I am trying to figure this out. I have a userform with one listbox with 7 columns that displays a range. It is working except i cannot get the column headings to work. Can someone show me what im missing? Thank you.

Private Sub UserForm_Initialize()
    Dim rng As Range
    With Sheets("Time")
        Set rng = .Range(.Cells(2, 7), .Cells(.Rows.Count, 1).End(xlUp))
        Me.ListBox1.List = rng.Value
    End With
End Sub