Сохранение определенного листа книги в файл с именем из ячейки.

[Nikitasun]

Все Добрый День! Помогите пожалуйста решить одну проблему.
Есть файл в нем листы. Нужно сохранить лист книги в отдельный файл, чтобы название файла бралось с определенного листа и определенной ячейки.
Sub MySaveName()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Folder\" & Range("d6").Value & " " & Range("d7").Value & ".xls"
Application.DisplayAlerts = True
End Sub

Вот хороший макрос, но сохраняет всю книгу по именем из ячейки.

Помогите пожалуйста!:

[olej.tsil]

Сообщение от Nikitasun

Есть файл в нем листы.

В файлах нет "листов".
В файлах есть байты.

[Nikitasun]

Ну конечно же в книге
Есть книга Excel в неq листы. Нужно сохранить лист книги в отдельный файл, чтобы название файла бралось с определенного листа и определенной ячейки.

[Aleksandr H.]

Sub SplitSheets2()
    Dim s As Worksheet
    Dim wb as Workbook
    Set wb = ActiveWorkbook
    For Each s In wb.Worksheets                                 'проходим во всем листам активной книги
        s.Copy                                                  'сохраняем лист как новый файл
        ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & " " & s.Range("d6").Value & " " & s.Range("d7").Value & ".xlsx"  'сохраняем файл
    Next
End Sub