How do you use a multiselect listbox1 to place data in a specific cell using VBA

[knharris75]

I have a userform that contains a listbox that needs to do the following:
1. Allow multiple data elements to be selected
2. Copy those selected items to the active cell
3. Place all the data elements in the active cell.

Here is the code I have written, I just need to figure out how to make it work for multiselection, HELP ME PLEASE!!!!!!!!!!!

Private Sub CommandButton2_Click()
Sheet2.Activate
ActiveCell.Offset(0, 0).Range("A1").Select
ActiveCell.Value = UserForm1.ListBox1.Value
UserForm1.ListBox1.Value = vbNullString
UserForm_Click
End Sub

 

[xld]

Private Sub CommandButton2_Click()
Dim i As Long
Dim data As String

	With UserForm1.ListBox1
        For i = 0 To .ListCount - 1 
            If .Selected(i) Then 
                data = data & .List(i) & " " 
            End If 
        Next i 
    End With 

    Sheet2.Range("A1").End(xlDown).Offset(1, 0).Value2 = data
End Sub

 

[knharris75]

XLD. thanks for the swift response. i have entered the code you suppplied and I recieve a run time error "1004" Application-defined or object defined error. What am I doing wrong?