Private Sub cmdEnterSelection_Click()
Dim i As Long
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) Then
ActiveCell.Value = Me.ListBox1.List(i)
ActiveCell.Offset(1, 0).Select
End If
Next i
End


HTH
--
AP

"Casey" a écrit dans le
message de ...

Hi,
I have a user form with a list box set to multiple selection. On the
same user form is a command button to send the selected items to the
active sheet. It works fine for the original application, however, I
need to modify the code so it will start pasting the selections staring
at the ActiveCell rather than looking for the first blank cell in a
column.

Here is my Code:

Private Sub cmdEnterSelection_Click()
Dim i As Long
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) Then
ActiveSheet.Range("A105").End(xlUp).Offset(1, 0) _
Value = Me.ListBox1.List(i)
End If
Next i
End Sub


--
Casey


------------------------------------------------------------------------
Casey's Profile:
http://www.excelforum.com/member.php...fo&userid=4545
View this thread: http://www.excelforum.com/showthread...hreadid=531178