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

作業ブックを指定フォルダに指定セル値がファイル名にして保存する方法を教えてください。
指定フォルダ先
「\\Nas-sp01\share\確認部\行政報告フォルダ\☆確認済交付月別物件（完了検査対象）\" & Worksheets("300").Range("A41").Text & " 【担当】確認番号 建物名称\" & Worksheets("300").Range("A43").Text & "\"」
ファイル名、指定セル値
シート名「1」セル「X1」
です。
保存用のダイナログを開かず、そのままダイレクトに保存を希望します。
ファイル保存後はブックをクローズ、
作業ブックはそのまま上書き保存状態でブックが開いたままでお願いします。
詳しいコードをよろしくお願いいたします。
マクロ名は仮に「保存」でお願いいたします。
よろしくお願いいたします。

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

• 回答ありがとうございます。
  申し訳ありません。
  説明が不足しておりました。
  指定フォルダ先の保存形式ですが、
  マクロ有効ブック「.xlsm」形式で保存をお願いいたします。
  よろしくお願いいたします。

  No.1の回答に寄せられた補足コメントです。 補足日時：2023/02/20 10:10

• 

  ご指示の通りのコードで設定をしてマクロを実行しても指定フォルダ先に保存ができませんで支亜t。
  保存方式をマクロ有効ブック「.xlsm」形式で保存が出来る解決方法を教えてください。
  よろしくお願いいたします。

    補足日時：2023/02/20 12:03

No.1 ベストアンサー 回答者： 河内のおやじ 回答日時： 2023/02/20 10:04

Sub 保存()

Dim FilePath As String

' ファイルパスを作成
FilePath = "\\Nas-sp01\share\確認部\行政報告フォルダ\☆確認済交付月別物件（完了検査対象）\" & Worksheets("300").Range("A41").Text & " 【担当】確認番号 建物名称\" & Worksheets("300").Range("A43").Text & "\" & ThisWorkbook.Sheets("1").Range("X1").Value & ".xlsx"

' ファイルを保存
ThisWorkbook.SaveAs Filename:=FilePath, FileFormat:=xlOpenXMLWorkbook

' ブックをクローズ
ThisWorkbook.Close SaveChanges:=False

End Sub