Dim i As Byte
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Cells(i + 1, 1) = ListBox1.List(i, 1)
End If
Next i
Dim i As Byte, t() As Variant
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ReDim Preserve t(0 To i)
t(i) = ListBox1.List(i)
End If
Next i