Add and Remove Items from a List Box
Note The SetFocus method is inherited from the Microsoft Forms 2.0 ListBox control.
To use this example, copy this sample code to the Script Editor of a form. To run the code you need to open the form so the Open event will activate. Make sure that the form contains:
A ListBox named ListBox1.
Two CommandButton controls named CommandButton1 and CommandButton2.
Dim EntryCount Dim Listbox1 Sub Item_Open() Set ListBox1 = Item.GetInspector.ModifiedFormPages("P.2").ListBox1 Set CommandButton1 = Item.GetInspector.ModifiedFormPages("P.2").CommandButton1 Set CommandButton2 = Item.GetInspector.ModifiedFormPages("P.2").CommandButton2 EntryCount = 0 CommandButton1.Caption = "Add Item" CommandButton2.Caption = "Remove Item" End Sub Sub CommandButton1_Click() EntryCount = EntryCount + 1 ListBox1.AddItem (EntryCount & " - Selection") End Sub Sub CommandButton2_Click() ListBox1.SetFocus 'Ensure ListBox contains list items If ListBox1.ListCount >= 1 Then 'If no selection, choose last list item. If ListBox1.ListIndex = -1 Then ListBox1.ListIndex = ListBox1.ListCount - 1 End If ListBox1.RemoveItem (ListBox1.ListIndex) End If End Sub
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.