ExcelReiter in Array schreiben

Hallo,

ich bräuchte eure Hilfe.
Wie kann man in einer Exceldatei die verschiedenen Reiter auslesen und in ein Array schreiben?
So wie ich das mache bekomme ich einen Fehler.

Dim arrSprachenCB As Variant
            For i = 1 To objExcel.Worksheets.Count
                arrSprachenCB(i) = objExcel.Worksheets(i).name
            Next

            For i = LBound(arrSprachenCB) To UBound(arrSprachenCB)
                .ComboBox2.AddItem arrSprachenCB(i)
            Next i