Dim i As Byte, maval As String
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
maval = maval & ListBox1.List(i) & " "
End If
Next i
Range("A1").Value = maval
Dim i As Byte, maval As String
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
maval = maval & ListBox1.List(i) & vbLf
End If
Next i
Range("A1").Value = maval