Private Sub CommandButton1_Click()
Dim i As Byte
Dim l As Byte
l = 1
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
Me.Spreadsheet1.Cells(l, 1) = ListBox1.List(i)
l = l + 1
End If
Next i
End Sub