Visual Basic 6 - VB x ECEXL Combobox e intestazione colonne

Ciao

Forse non è chiara la domanda o o non c'è soluzione o nessuno sa rispondermi?
Vi pergo. aiutatemi

Provo a riscriverla:

Ho creato un combobox a colonne multiple. 9 per la precisione. ma non riesco a visualizzare l'intestazione delle colonne.

Public Sub InizializzaComboBoxBolle()
Dim lngRighe As Long
Dim lngRigheMatrice As Long

Sheets("Bolle".Activate
Range("a2".Select
lngRighe = 0

Do While Not IsEmpty(ActiveCell)
lngRighe = lngRighe + 1
ActiveCell.Offset(1, 0).Activate
Loop

ReDim arrBolle(lngRighe - 1, 8)
Range("a2".Select
For lngRigheMatrice = 1 To lngRighe
arrBolle(lngRigheMatrice - 1, 0) = ActiveCell.Value
ActiveCell.Offset(0, 1).Activate
arrBolle(lngRigheMatrice - 1, 1) = ActiveCell.Value
ActiveCell.Offset(0, 1).Activate
arrBolle(lngRigheMatrice - 1, 2) = ActiveCell.Value
ActiveCell.Offset(0, 1).Activate
arrBolle(lngRigheMatrice - 1, 3) = ActiveCell.Value
ActiveCell.Offset(0, 1).Activate
arrBolle(lngRigheMatrice - 1, 4) = ActiveCell.Value
ActiveCell.Offset(0, 1).Activate
arrBolle(lngRigheMatrice - 1, 5) = ActiveCell.Value
ActiveCell.Offset(0, 1).Activate
arrBolle(lngRigheMatrice - 1, 6) = ActiveCell.Value
ActiveCell.Offset(0, 1).Activate
arrBolle(lngRigheMatrice - 1, 7) = ActiveCell.Value
ActiveCell.Offset(0, 1).Activate
arrBolle(lngRigheMatrice - 1, 8) = ActiveCell.Value
ActiveCell.Offset(1, -8).Activate
Next lngRigheMatrice
cmbNumeroBolla.ColumnHeads = True
cmbNumeroBolla.ColumnCount = 9
cmbNumeroBolla.ColumnWidths= "70;70;40;60;40;40;80;0;60"
cmbNumeroBolla.List() = arrBolle

End Sub

Dove arrBolle è il mio array
La combobox di per sè funziona correttamente ma la riga dove dovrebbe comparire l'intestazione dell colonne è sempre vuota.

Ho provato ad usare anche solo il comando

cmbNumeroBolla.ListFillRange = "bolle!A2:i28"

ma mi da l'errore

"Impossibile trovare il metodo o il membro dei dati"
ed evidenzia ListFillRange

Aiutoooooo