在将工作簿另存为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