For each.. Next statement with listbox

[Matt]

I have a listbox which allows multiple items to be selected. I would like to use a "For Each 'selected item' in 'listbox'" type statement for each item that has been selected. Is this possible? If so, please advise.

Thanks in advance

Matt
This message was edited by Matt on 2002-10-18 10:03

 

[Andrew Poulsom]

You can't use the For Each next construct - that only applies to collections.

Use a For next loop like this:

Sub Test()
   Dim i As Integer
   For i = 0 To ListBox1.ListCount -1
      If ListBox.Selected(i) Then
'        *** Replace next line with your code ***
         MsgBox ListBox1.List(i) & "is selected" 
      End If
   Next i
End Sub

 

[Matt]

Thanks again Andrew