Да, ColumnHeads уже работать не будет  
 
Добавьте над каждым столбцом по надписи (Label) и напишите своё название столбцов  
 
а ListBox с 3 колонками можно заполнить так  
 
Пример из справки (сократил немного, удалив упоминания про LisBox2)  
 
Private Sub UserForm_Initialize()  
Dim i As Single  
Dim MyArray(5, 3)  
    'The 1st list box contains 3 data columns  
   ListBox1.ColumnCount = 3  
 
   'Load integer values into first column of MyArray  
   For i = 0 To 5  
       MyArray(i, 0) = i  
   Next i  
 
   'Load columns 2 and three of MyArray  
   MyArray(0, 1) = "Zero"  
   MyArray(1, 1) = "One"  
   MyArray(2, 1) = "Two"  
   MyArray(3, 1) = "Three"  
   MyArray(4, 1) = "Four"  
   MyArray(5, 1) = "Five"  
 
   MyArray(0, 2) = "Zero"  
   MyArray(1, 2) = "Un ou Une"  
   MyArray(2, 2) = "Deux"  
   MyArray(3, 2) = "Trois"  
   MyArray(4, 2) = "Quatre"  
   MyArray(5, 2) = "Cinq"  
 
   'Load data into ListBox1  
   ListBox1.List() = MyArray  
End Sub

Можно вот так еще  
Private Sub UserForm_Initialize()  
   ListBox1.List = Range("A1:C15").Value  
End Sub  
 
Только ColumnCount надо будет поставить по количеству столбцов

Да, или заголовки можно в нулевую строку двумерного массива вписать (заодно и первая ИСПОЛЬЗУЕМАЯ строка будет с индексом 1)