ListCount Property Example

This example adjusts a combo box to display all entries in its list. If Shapes(1) does not represent a combo box, this example fails.

Set cf = Worksheets(1).Shapes(1).ControlFormat
cf.DropDownLines = cf.ListCount