Private Sub CommandButton1_Click()
 Dim I As Integer
   For I = 0 To ListBox1.ListCount - 1
      Cells(I + 1, 1) = ListBox1.List(I)
   Next I
End Sub