ListBox Help

[rockchalk33]

Hey all,

I have a ListBox with a variable list and the MultiSelect property turned on. I need to the below code to operate through each selected value in the ListBox instead of the current range as defined by o.

Dim N As Range, o As Range
Set o = Sheets("Sheet3").Range("A2:A3000")

For Each N In o

....

Next N

I cannot change these variable names due to the sheer size of the program (no ctrl+h is not currently an option)...Below is what I'm ultimately trying to achieve:

Dim N As 'each selected value in' Range
Dim o As Range
Set o = ListBox3.ListCount

For Each N In o

....

Next N

Thanks for help!

 

[HackSlash]

Use the selected property and the index is N:

For N = 0 to ListBox3.ListCount - 1
    YourData = ListBox3.Selected(N)
Next