ComboBox vullen

[wieter]

Ik probeer een ComboBox te vullen met een RIJ uit Blad1
Niet via de eigenschappen.
Wel via een code.

Private Sub Workbook_Open()
    Blad1.ComboBox1.List = Sheets(1).Cells(1, 1).Resize(, 10).Value
End Sub

Dit doet echter niet wat ik wil.
Welke fout maak ik?

Bekijk bijlage combobox.xlsm

 

[HSV]

 Blad1.ComboBox1.List = Application.Transpose(Sheets(1).Cells(1, 1).Resize(, 10).Value)

 

[wieter]

Natuurlijk Harry, Worksh. functie Transpose is nodig.
Ik had wat beter moeten denken.
Toch leuk dat de meesters nog wakker zijn.
Bedankt Harry
Grtn