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

マクロを実行して、マクロ有効形式と一般のExcel形式の２つのファイルが作業フォルダ内に保存されます。
２つのファイルの内、マクロ有効形式の保存先をダイナログが表示され、保存先のフォルダを選択出来、
一般のExcel形式のファイルはそのまま作業フォルダ内に自動で保存出来る方法を教えてください。
マクロ
Sub 電子提出()
Dim myFull As String

myFull = ThisWorkbook.FullName
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 & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
Application.Quit
Sheets("提出シート").Shapes("新築FD").Visible = False '
Sheets("提出シート").Shapes("計変FD").Visible = False '
Sheets("提出シート").Shapes("増築FD").Visible = False '
Sheets("提出シート").Shapes("担当者").Visible = False '
Range("D7").Select

Kill myFull

End Sub
が有ります。このマクロを実行すると作業フォルダ内にマクロ有効形式「〇〇　様邸【担当】.xlsm」と一般のExcel形式「〇〇　様邸【担当】(提出用).xlsxが自動で保存されます。
上記のファイルの内、マクロ有効形式「〇〇　様邸【担当】.xlsm」のファイルを保存する際に
ダイナログが表示され、保存先のフォルダを選択出出来るようにして
一般のExcel形式「〇〇　様邸【担当】(提出用).xlsxは今まで通り、自動で作業フォルダ内に保存。
が出来る方法を教えてください。
よろしくお願いします。

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

• 何とか解決したいので
  ご親切な方よろしくお願いします

    補足日時：2023/06/04 12:52

• 回答ありがとうございました
  申し訳ありません
  貴者が教えて頂けた
  コードを私のコードにどのように変更　
  すれば良いかがわかりません
  詳しく教えてください
  よろしくお願いします

    補足日時：2023/06/04 14:55

No.2 ベストアンサー 回答者： 初心者ですが何か。 回答日時： 2023/06/04 19:05

直接の回答ではなく、先日気付いて伝え忘れた件を。

＞Worksheets(Array("記載方法")).Delete

Array関数を用いていても中身の値が１つしかないなら、

Worksheets("記載方法").Delete
Worksheets("提出図書（参考）").Delete
Worksheets("Web申請手順（参考）").Delete
Worksheets("申請種別").Delete

これでも宜しいのではないかと。

この回答へのお礼

先日はありがとうございました
又　この度もありがとうございます
早速変更させて頂きます

お礼日時：2023/06/04 19:08

No.1 回答者： fujillin 回答日時： 2023/06/04 14:49

http://officetanaka.net/excel/vba/tips/tips39.htm
https://www.sejuku.net/blog/73968