excel - count sleected items in a listbox

  • Thread starter Thread starter sjvenz
  • Start date Start date
Try:

Sub CountSelected()
Dim LB As ListBox, i As Integer
Dim X As Integer
X = 0
Set LB = ActiveSheet.OLEObjects(1).Object
For i = 1 To LB.ListCount
If LB.Selected(i - 1) = True Then X = X + 1
Next
MsgBox X
End Sub

Regards,
Greg
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Access Using DAO.Database VBA code to populate a listbox from another listbox selection 1
Refresh Listbox 2
refresh listbox 2
Access Cannot select items in listbox 1
UserForm Listbox Selected Item Manipulation 5
Blank item in listbox, how to remove 3
Listbox ? 1
Excel listbox 2

Back
Top