Как скопировать листы из рабочей книги в новую открытую рабочую книгу и переименовать новую рабочую книгу в соответствии со списком

Question

Sub ExportSheets()

    Dim wb As Workbook
    Dim x As Long
    Dim last As Long
    Dim y As Long

    last = Workbooks("Master").Worksheets("Master").Cells(Rows.Count, "A").End(xlUp).Row
    last1 = Workbooks("Master").Worksheets("Master").Cells(Rows.Count, "B").End(xlUp).Row


    Set wb = ActiveWorkbook
    Sheets(Array(2, 3)).Copy

    For x = 2 To last
        Workbooks("Master").Worksheets("Master").Cells(x, 1).Copy
        ActiveWorkbook.Worksheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteFormulas

        'For y = 2 To last1
            'ActiveWorkbook.SaveAs "C:\Users\nkelaniy\Desktop\" & Workbooks("Master").Worksheets("Master").Cells(y, 2) & ".xlsx"
            ActiveWorkbook.SaveAs "C:\Users\nkelaniy\Desktop\" & ActiveWorkbook.Worksheets(1).Cells(1, 1) & ".xlsx"
        'Next
    Next

End Sub

Я хочу скопировать два листа в новую рабочую книгу из основной рабочей книги, затем переименовать в соответствии с главным списком основной рабочей книги и сохранить. также второй список копируйте каждую новую книгу в первый лист ячейки A1.

работает нормально, но когда я зацикливался, переименовывай по списку. Это произошло, замените сообщение Excel и ошибочно скопируйте данные.

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