Returns or sets the index number of the currently selected item in a list box or combo box. Read/write Long.
Remarks
You cannot use this property with multiselect list boxes.
Example
This example removes the selected item from a list box. If Shapes(2) doesn’t represent a list box, this example fails.
Set lbcf = Worksheets(1).Shapes(2).ControlFormat
lbcf.RemoveItem lbcf.ListIndex