Private Sub CommandButton1_Click()
For I =  0  To  10 
   If ListBox1.Selected(I) = True Then
      Worksheets("Лист1").Cells(I +  1 ,  1 ) = ListBox1.List(I)
End If
Next I
End Sub

'подтягиваем названия листов книги
Private Sub CommandButton1_Click()
Dim Sheet As Worksheet
    For Each Sheet In ActiveWorkbook.Sheets
        Me.ListBox1.AddItem (Sheet.Name)
    Next
    Me.ListBox1.Selected(ActiveSheet.Index -  1 ) = True
End Sub

'переносим их на лист
Private Sub CommandButton2_Click()
Dim i&, m&
    For i =  0  To Me.ListBox1.ListCount -  1 
        If Me.ListBox1.Selected(i) Then
            Worksheets("Лист1").Cells(m +  1 ,  1 ) = Me.ListBox1.List(i)
            m = m +  1 
        End If
    Next i
End Sub