Private Sub ListBox1_Change()
Dim i As Long
Dim j As Long
With Me.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
j = j + 1
Cells(j, "A").Value = .List(i)
End If
Next i
End With
End Sub

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Rahul_Uk" wrote in
message ...

Hi,

I am new to MS Excel and need help with the selection of multiple items
on a Listbox (using the Control Toolbox). I have managed to set up a
listbox and it allows me to select more than one item (using
Multiselect in Properties).

I want to output my selections to cells in my worksheet. So if I
select two items from my listbox I will have the values for those items
in Cells: A1 and A2. Essentially I would like a Linkedcell
functionality for multiple selections and not just single selections.

Can anyone help with this.

Thanks

Rahul


--
Rahul_Uk
------------------------------------------------------------------------
Rahul_Uk's Profile:
http://www.excelforum.com/member.php...o&userid=33690
View this thread: http://www.excelforum.com/showthread...hreadid=534632