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" <Rahul_Uk.26kl9m_1145548508.9362@excelforum-nospam.com> wrote in
message news:Rahul_Uk.26kl9m_1145548508.9362@excelforum-nospam.com...
>
> 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
>