Создание слишком большого количества рабочих книг при сохранении рабочей книги в виде CSV-файлов

Question

vba - скопировать диапазон -> создать новую книгу -> сохранить ее как csv, мне удалось добраться до ниже, но он открывает слишком много рабочих книг и сохраняет их открытыми даже после сохранения их как csv

Я пробовал близкую вещь, но она все еще не работает, что я могу сделать, чтобы остановить это :(

        Columns("A:F").Select
        Selection.Copy

        Workbooks.Add
        ActiveSheet.Paste

        Dim wbNew As Workbook
        Dim strFileName As String

        With ActiveSheet
            strFileName = .Range("A2").Value
            .Copy
        End With

        Set wbNew = ActiveWorkbook

        wbNew.SaveAs ThisWorkbook.Path & "\" & strFileName, FileFormat:=xlCSV, CreateBackup:=False

            Application.DisplayAlerts = False

        ActiveWorkbook.Close

        Workbooks("Paul_Automation_Project_Ver2.xlsm").Activate

        Next

    End Sub