'remove last item in listbox
If UserForm1.ListBox1.ListCount <> 0 Then
UserForm1.ListBox1.RemoveItem (UserForm1.ListBox1.ListCount - 1)
End If
I've always just cleared the list, adjusted it's source values with the changes and then reloaded it...
Code:
'clear and reload listbox
UserForm1.ListBox1.ListIndex = -1
UserForm1.ListBox1.Clear
For cnt = 1 To [Sheet1!A1]
UserForm1.ListBox1.AddItem Sheets("Sheet1").Range("B" & cnt).Value
End If
Next cnt
If U adjust your list of items in "B" in the above example and if A1 represented the number of items, U can then reload the listbox with whatever. U can do this by any macro, event and/or command button. HTH. Dave
We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel
Which adblocker are you using?
Disable AdBlock
Follow these easy steps to disable AdBlock
1)Click on the icon in the browser’s toolbar. 2)Click on the icon in the browser’s toolbar. 2)Click on the "Pause on this site" option.
Go back
Disable AdBlock Plus
Follow these easy steps to disable AdBlock Plus
1)Click on the icon in the browser’s toolbar. 2)Click on the toggle to disable it for "mrexcel.com".
Go back
Disable uBlock Origin
Follow these easy steps to disable uBlock Origin
1)Click on the icon in the browser’s toolbar. 2)Click on the "Power" button. 3)Click on the "Refresh" button.
Go back
Disable uBlock
Follow these easy steps to disable uBlock
1)Click on the icon in the browser’s toolbar. 2)Click on the "Power" button. 3)Click on the "Refresh" button.