[RESOLVED] Pop up messagebox when no selection in listbox

[matrik02]

I have item in the listbox.. I am trying to pop up the messagebox when no selection item were made in the listbox. How to do that?

For c = 0 To ListBox1.ListCount - 1

Next c

[Hack]

Private Sub Command1_Click()
Dim i As Long
Dim blnSelected As Boolean
For i = 0 To List1.ListCount - 1
    If List1.Selected(i) = True Then
       blnSelected = True
       Exit For
    End If
Next
If blnSelected = False Then
   MsgBox "No selections made"
End If
End Sub

[matrik02]

This really help me

[Hack]

Since you only need to check for at least one selection, you don't need it to loop through the entire listbox unless it can't find anything selected.

I edited what I posted and added an Exit For if it finds at least one match. That is more efficient.