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

Excelマクロ有効テンプレートで保存した「ひな形ブック」に下記のマクロを設定しております。
Sub 電子受付()
Application.ScreenUpdating = False
Const folder As String = "\\nas-sp01\share\確認部\電子申請　関連\１．受付\１．確認申請\"
Dim newName As Variant
Dim initName As String
initName = folder & Range("CE1").Value
newName = Application.GetSaveAsFilename(InitialFileName:=initName, FileFilter:="Excel マクロ有効ブック(*.xlsm), *.xlsm")
If newName = False Then Exit Sub
ThisWorkbook.SaveCopyAs newName
Dim WS As Worksheet
Dim TargetCheck As String
Dim List As Variant
Dim i As Long
Dim Chk As Boolean
List = Array("細則", "角地", "真北", "自衛隊", "休日")
For Each WS In Worksheets
Chk = False
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
Next WS
If TargetCheck = "" Then
MsgBox "非表示シートはありません。処理を終了します。"
Else
MsgBox "以下の非表示シートを削除しました。" & vbCrLf & vbCrLf & TargetCheck
End If
ThisWorkbook.SaveAs newName, xlOpenXMLWorkbookMacroEnabled
Application.ScreenUpdating = True
Application.Quit
With ThisWorkbook
.Saved = True
.Close False
End With
End Sub
このマクロは指定のフォルダー内に、不要な非表示シートを削除し、「CE1」値をファイル名にして保存、ブックをクローズ出来るマクロコードです。
例えば、CE1＝【青紙】北海太郎様邸とし
マクロを実行すると
「この場所に’\\nas-sp01\share\確認部\電子申請　関連\１．受付\１．確認申請\北海太郎【青紙】北海太郎様邸.xlsm’という名前のファイルが既にあります。置き換えますか？」
と警告文字が出てしまいます。
この警告文字が出ないようにする方法を教えてください。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： よろずやkinchan 回答日時： 2022/03/18 10:12

９行目のこれが余計なのでは。

' ThisWorkbook.SaveCopyAs newName

この回答へのお礼

回答ありがとうございました。
解決いたしました。

お礼日時：2022/03/18 11:13