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

下記のマクロを設定しております。
「Sub Macroの保存2()
Dim mainB As Workbook
Set mainB = ThisWorkbook
Call シートをコピー2(mainB)
End Sub

Sub シートをコピー2(MB As Workbook)
Dim WB As Workbook
Dim WS As Worksheet
MB.Sheets(2).Columns("B:AD").Copy
Workbooks.Add
Set WB = ActiveWorkbook
Set WS = WB.Sheets(1)
With WS
.Range("B1").Select
ActiveSheet.Paste
.Range("B1:AD190").Copy
.Range("B1").PasteSpecial Paste:=xlPasteValues
.Rows("49:136").Delete
End With

With Application.Dialogs(xlDialogSaveAs)
.Show Arg1:=MB.Sheets(2).Range("P1").Value
End With

End Sub」
セルP1に物件名+担当者名が表示され、このファイル名で範囲指定した部分をエクセルで保存出来るように設定してますが、
以前は上手く実行出来たのですが、最近になり
画像の例-1の表示がでで、その表示を「キャンセル」したら
目的の画像の例-2が表示されるようになってます。
画像の例-1を表示しないでスムーズに画像の例-2を表示させたいのですが、回答をよろしくお願いいたします。
保存対象シートですが、いくつかの数式を設定しており、数式を壊されないために、その部分をシート保護をしております。
それが原因でしょうか。
上手くいっていたときと今回とではマクロ式を変更はしておりません。
原因がわかりませんので、よろしくお願いいたします。

No.1 ベストアンサー 回答者： mygoonickname 回答日時： 2021/12/08 10:47

おはようございます。

直接の回答ではないのですが、何かのファイルを開こうとしている様な
ダイアログが表示されている様に見えますね。

.Range("B1:AD190")のセルで、外部のファイルを参照している様な物が
あれば、それが原因かも知れません。

この回答へのお礼

回答ありがとうございました。
やはり、おっしゃる通りに、外部とリンクしており、リンクを解除しましたら解決いたしました。
ありがとうございます。

お礼日時：2021/12/08 12:23