сохранение нескольких листов в одну книгу по условию

[сергей кмв]

помогите пожалуйста есть макрос

Sub СохранитьЛистВФайл()
    On Error Resume Next
    ' название подпапки, в которую по-умолчанию будет предложено сохранить файл
    Const REPORTS_FOLDER = "наряд\"
    ' создаём папку для файла, если её ещё нет
    MkDir ThisWorkbook.Path & "\" & REPORTS_FOLDER
    
    ' выбираем стартовую папку
   ChDrive Left(ThisWorkbook.Path, 1): ChDir ThisWorkbook.Path & "\" & REPORTS_FOLDER
     ' вывод диалогового окна для запроса имени сохраняемого файла
    Filename = Application.GetSaveAsFilename("наряд.xls", "Книга Excel 97-2003(*.xls),", , _
                                             "Введите имя файла для сохраняемого отчёта", "Сохранить")
    ' если пользователь отказался от выбора имени файла - отменяем сохранение листа в файл
    If VarType(Filename) = vbBoolean Then Exit Sub
     ' копируем активный лист (при этом создаётся новая книга)
    Err.Clear: ActiveSheet("Лист 2").Move: DoEvents
    If Err Then Exit Sub    ' произошла какая-то ошибка при попытке копирования листа
    ' убеждаемся, что активной книгой является копия листа
    If ActiveWorkbook.Worksheets.Count = 1 And ActiveWorkbook.Path = "" Then
        ' сохраняем файл под заданным именем в формате Excel 2003
        ActiveWorkbook.SaveAs Filename, xlWorkbookNormal
         ' закрываем сохранённый файл
        ' (удалите следующую строку, если закрывать созданный файл не требуется)
        ActiveWorkbook.Close False
    End If
    
End Sub

он сохраняет только активный лист а созданный лист он не сохраняет. и несколько созданных листов в одну книгу тоже не сохраняет.

[IgorGO]

а по какому условию следует отбирать нужные листы?

[Hugo121]

Sheets(Array("Лист1", "Лист2", "Лист3")).Move

Но думаю хоть один лист следует оставить...

[сергей кмв]

создается листы по шаблону и сохраняются как отдельные книги а в одну не получается