excel - count sleected items in a listbox

[sjvenz]

Is it possible to count the SELECTED items of a ListBox

 

[Greg Wilson]

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