Экспорт данных с листбокса в Excel

[yuresku]

Добрый день есть файл "Экспорт" . В листбоксе показан список клиентов. Нужно по нажатию на кнопку "Экспорт" экспортировать данные на лист Excel (должны скопироваться данные столбца В2:B) c названием Книги База клиентов

[n_lomov]

   Dim Name As String
   Application.ScreenUpdating = False
   With ActiveWorkbook.Worksheets("база данных")
      .Range(.Range("B2"), .Range("B2").End(xlDown)).Copy
      Name = .Range("B1")
   End With
   Workbooks.Add
   Range("A1").PasteSpecial
   With ActiveWorkbook
      .SaveAs Filename:=ThisWorkbook.Path & "\" & Name & ".xls"
      .Close
   End With
   Application.ScreenUpdating = True

[yuresku]

n_lomov, спасибо работает я немного подшаманил.