ListFillRange Property Example

This example adds a list box to worksheet one and sets the fill range for the list box.

With Worksheets(1)
    Set lb = .Shapes.AddFormControl(xlListBox, 100, 10, 100, 100)
    lb.ControlFormat.ListFillRange = "A1:A10"
End With