In diesem Beispiel wird ein Listenfeld mit schlichter Mehrfachauswahl erstellt.
Set lb = Worksheets(1).Shapes.AddFormControl(xlListBox, _ Left:=10, Top:=10, Height:=100, Width:100) lb.ControlFormat.MultiSelect = xlSimple