Transferring multiple selections from listbox to general module

[Lomdok]

Hi,

I've got a listbox in which the user selects multiple items (say 1, 3 and 5 from a list of 1 to 10).

I want to take those selections and add them to an array in the main module.

I can't seem to get the data from my listbox to an array outside of the userform...any ideas?

 

[MickG]

Try this:-

[COLOR="Navy"]Sub[/COLOR] MG11Jan28
Private [COLOR="Navy"]Sub[/COLOR] CommandButton1_Click()
[COLOR="Navy"]Dim[/COLOR] Ray()
[COLOR="Navy"]Dim[/COLOR] n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]Dim[/COLOR] c [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
c = 0
[COLOR="Navy"]With[/COLOR] ListBox1
    [COLOR="Navy"]For[/COLOR] n = 0 To .ListCount - 1
        [COLOR="Navy"]If[/COLOR] ListBox1.Selected(n) [COLOR="Navy"]Then[/COLOR]
            ReDim Preserve Ray(c)
            Ray(c) = .List(n)
            c = c + 1
        [COLOR="Navy"]End[/COLOR] If
    [COLOR="Navy"]Next[/COLOR] n
[COLOR="Navy"]End[/COLOR] With
Call mysub(Ray)
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]
[COLOR="Navy"]Sub[/COLOR] mysub(MyRay)
MsgBox Join(MyRay, ", ")
 [COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick