Рабочая книга VBA Сохранить как

Question

Я надеялся сохранить свой новый файл csv sheet1 как «CSV123», но каким-то образом имя листа всегда меняется на имя файла после сохранения и закрытия файла.

Я не уверен, почему .Sheets (1) .Name = "CSV123" регистрируется, когда я использую F8 для проверки, но не регистрируется после закрытия книги.

Sub Save_as_CSV()

    Dim Newbook As Workbook
    Dim filename As String
    Dim answer As String

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    answer = InputBox("Please enter the file name for save", "CSV File Name")
    If answer <> "" Then
        filename = Application.ThisWorkbook.Path & "\" & answer & ".csv"
        Set Newbook = Workbooks.Add
        shcsv.Copy before:=Newbook.Sheets(1)
        With Newbook
            .Sheets(1).Rows("1:3").Delete
            .SaveAs filename:=filename, FileFormat:=Excel.xlCSV
            .Sheets(1).Name = "CSV123"
            .Save
            .Close
        End With
    Else
    Exit Sub
    End If
     MsgBox "The CSV is exported to the same directory as this file."

        Application.ScreenUpdating = True
        Application.DisplayAlerts = True
End Sub