エクセルのマクロについて教えてください。

マクロを実行後に作業ブックを削除出来る方法を教えてください。
マクロ
Sub 電子提出()
Application.DisplayAlerts = False
On Error Resume Next
Worksheets(Array("記載方法")).Delete
Worksheets(Array("提出図書（参考）")).Delete
Worksheets(Array("Web申請手順（参考）")).Delete
Worksheets(Array("申請種別")).Delete
Worksheets("提出シート").Activate
Dim rng As Range
Set rng = Selection.Cells
Range("B1", "H47").Select
mybook = ThisWorkbook.Path
ActiveWorkbook.SaveAs Filename:=mybook & "\" & Range("P1").Value & "(提出用).xlsx", FileFormat:=xlOpenXMLWorkbook
rng.Select
Sheets("提出シート").Range("D3,D4,D5,D7").ClearContents
Range("D7").Select
Sheets("提出シート").Shapes("担当者").Visible = False '
ActiveWorkbook.SaveAs Filename:=mybook & "\" & Range("P1").Value, FileFormat:=xlOpenXMLWorkbookMacroEnabled

Application.Quit
With ThisWorkbook
.Saved = True
Application.DisplayAlerts = True
.Close False
End With
Sheets("提出シート").Shapes("新築FD").Visible = False '
Sheets("提出シート").Shapes("計変FD").Visible = False '
Sheets("提出シート").Shapes("増築FD").Visible = False '
Sheets("提出シート").Shapes("担当者").Visible = False '
Range("D7").Select
End Sub
があります。
マクロを実行するとセル値をファイル名にして
○○ 様邸【担当】(提出用).xlsx
○○ 様邸【担当】.xlsm
の2つのファイルが作業フォルダ内に保存されます。
この2つのファイルが保存されれば
作業中のブックは不要となりますので
ファイルが保存されたタイミングで
作業ブックを削除出来る方法を教えてください。
コードの後半を
Application.Quit
With ThisWorkbook
.Saved = True
Application.DisplayAlerts = True
.Close False
End With
With srcWorkbook
.Save
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close (False)
End With
Sheets("提出シート").Shapes("新築FD").Visible = False '
Sheets("提出シート").Shapes("計変FD").Visible = False '
Sheets("提出シート").Shapes("増築FD").Visible = False '
Sheets("提出シート").Shapes("担当者").Visible = False '
Range("D7").Select
End Sub
と設定しましたら
画像のように
○○ 様邸【担当】(提出用).xlsx　は上手く保存できましたが、
○○ 様邸【担当】.xlsmが
○○ 様邸【担当】となり、Excelファイルでは保存されておりません。
解決方法を教えてください。

よろしくお願いします。

質問者からの補足コメント

• 

  又、作業ブックも削除されておりませんでした。
  よろしくお願いします。

    補足日時：2023/06/01 15:37

• 作業中の削除したいファイル名は
  「【確認申請】提出シート（○○様）（FD対応-6）.xlsm」になります。
  （○○様）（FD対応-6）部分は都度変更になります。
  よろしくお願いします。

    補足日時：2023/06/01 17:21

No.1 ベストアンサー 回答者： かわごえ 回答日時： 2023/06/01 14:59

ActiveWorkbook.SaveAs Filename:=mybook & "\" & Range("P1").Value & "(提出用).xlsx",

ActiveWorkbook.SaveAs Filename:=mybook & "\" & Range("P1").Value,

この違いでしょ

この回答へのお礼

回答ありがとうございます。

お礼日時：2023/06/01 15:36