In diesem Beispiel wird dem ersten Tabellenblatt ein Listenfeld hinzugefügt und der Bereich festgelegt, mit dem das Listenfeld ausgefüllt wird.
With Worksheets(1) Set lb = .Shapes.AddFormControl(xlListBox, 100, 10, 100, 100) lb.ControlFormat.ListFillRange = "A1:A10" End With