Excelのマクロコードについて教えてください

作業ブックに
Sub データー保存()
Worksheets(Array("記載方法", "消防の指摘一覧（参考資料）", "Web申請手順（参考）", "申請種別")).Delete
Application.Dialogs(xlDialogSaveAs).Show Arg1:=Range("P1").Value, Arg2:=xlOpenXMLWorkbookMacroEnabled
myBook = ThisWorkbook.Path
ActiveWorkbook.SaveAs Filename:=myBook & "\" & Range("P1").Value & "●.xlsx", FileFormat:=xlOpenXMLWorkbook
Application.Quit
With ThisWorkbook
.Saved = True
.Close False
End With
End Sub
が有ります。
このマクロを実行した時に表示シートの
("記載方法", "消防の指摘一覧（参考資料）", "Web申請手順（参考）", "申請種別")
が削除出来る様に設定しておりますが、
添付画像の警告文がでて、「削除」をクリックして
シートが削除出来る様になってますが
この警告文を表示させないで
("記載方法", "消防の指摘一覧（参考資料）", "Web申請手順（参考）", "申請種別")
シートを削除する方法を教えてください。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： mygoonickname 回答日時： 2022/03/27 12:12

こんにちは。

シート削除の前に、下記コードを記載。
Application.DisplayAlerts = False
削除が終わったら、Trueに戻せば良いかと思います。

https://www.moug.net/tech/exvba/0150081.html

この回答へのお礼

回答ありがとう御座いました。
上手く出来ました。

お礼日時：2022/03/27 12:56