List Box - Multi Select Issue

[Joe Wildman]

Hello everyone, I was able to create a List Box per the site below and link
the data to the chart and got it to disply in cell A20 when i click on any
item but I need the Multi Select option to work. So going off the exact
example as it is a test, Simply, what I need is How To the Link cell A20 to
display anything selected in the list box in once cell (note, I did set the
list box propertys to linked cell A20 and can see only 1 item in the list
when set to singel). Can anyone please help?

http://support.microsoft.com/kb/291073

 

[Joe Wildman]

I just wanted to clarify that the list box i am using is an object like the
combo box, that is what i am working with,

 

[Joe Wildman]

Never mind, i got it

Private Sub ListBox1_Change()

Dim outString As String, i As Long

outString = vbNullString
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then outString = outString & ", " & .List(i)
Next i
End With
Range("A1").Value = outString

End Sub