Excelのマクロについて教えてください。

下記のマクロを実行すると
ダイアログが表示されて、保存先フォルダを指定し、指定セル値をファイル名として作業ブックを保存、
元の作業ブックはそのままで削除されません。
このマクロを
ダイヤログが表示されないで、作業フォルダ内に保存できるように変更する方法を教えてください。
現状のマクロ
Sub 業者用日付を更新して保存()
On Error Resume Next
Application.DisplayAlerts = False
Const folder As String = "\\nas-sp01\share\確認部\電子申請　関連\１．受付\１．確認申請\"
Dim newName As Variant
Dim initName As String
initName = folder & Range("W2").Value
newName = Application.GetSaveAsFilename(InitialFileName:=initName, FileFilter:="Excel マクロ有効ブック(*.xlsm), *.xlsm")
If newName = False Then Exit Sub
Dim ws As Worksheet
Dim TargetCheck As String
Dim List As Variant
Dim i As Long
Dim Chk As Boolean
If ws.Visible = False Then
For i = 0 To UBound(List)
If ws.Name = List(i) Then
Chk = True
Exit For
End If
Next i
If Chk = False Then
TargetCheck = TargetCheck & ws.Name & vbCrLf
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End If
End If

ThisWorkbook.SaveAs newName, xlOpenXMLWorkbookMacroEnabled
Application.ScreenUpdating = True
Application.Quit
With ThisWorkbook
.Saved = True
.Close False
End With
End Sub

以上となります。
よろしくお願いいたします。

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

• 

  コードの下記の部分を
  Const folder As String = "\\nas-sp01\share\確認部\電子申請　関連\１．受付\１．確認申請\"
  作業ブックが保存されているフォルダと同じフォルダ内に指定すれば良いと思うのですが。
  どなたか教えて頂けませんか。
  よろしくお願いいたします。

    補足日時：2025/02/21 08:46

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2025/02/21 18:18

ご説明と処理の内容がだいぶ違うようですね

条件を整理した方が良さそうです

この回答へのお礼

回答ありがとうございます、
一旦、整理されて頂きます、

お礼日時：2025/02/21 20:06