callで順に実行されるプロシージャを途中で止める方法

EXCEL VBAでご教示頂けると嬉しいです。

個人用マクロブックに以下のようなマクロを組みました。
アクティブブックのB/Sシート、P/Lシートのデータをクリアしてから、新しいデータを張り付けるのが目的です。

************************
Dim tempSH
sub 貼付け()
tempSH = "BSシート"
Worksheets(tempSH).Select
Call シートの削除　・・・・・・・①
Call BSデータを貼付

tempSH = "PLシート"
Worksheets(tempSH).Select
Call シートの削除
Call PLデータを貼付
End Sub
************************

「シートの削除」プロシージャでは、
msgboxのvbYesNoで削除確認を行っています。

最初の①「シートの削除」プロシージャで「キャンセル」をすると、
Exit subになるのでその「シートの削除」プロシージャは抜けられますが、
そのあとのプロシージャのmsgboxがすべて出てきてしまいます。
①でキャンセルをしたときに、そのあとのプロシージャを実行しない方法がありましたらご教示お願いいたします。

No.6 ベストアンサー 回答者： tatsu99 回答日時： 2019/10/23 16:54

シートの削除プロシージャの確認部分を以下のようにしてください。

If MsgBox("確認", vbOKCancel) = vbCancel Then
End
End If

Endが実行されるとマクロ全体が停止します。

No.5 回答者： GooUserラック 回答日時： 2019/10/23 16:52

No.3 4の訂正です　度々申し訳ない

「Dim 停止 As Balloon」は「Public 停止 As Balloon」ですよね
本当に申し訳ございません

No.4 回答者： GooUserラック 回答日時： 2019/10/23 16:42

No.3 訂正（文字抜けしてました）

「Sub …」のすぐ後に「Dim 停止 As Balloon」を作っておいて、停止したい時に「停止 = True」を実行して「Call …」のすぐ後に「If 停止 Then Exit Sub」を入れればよいのでは？

No.3 回答者： GooUserラック 回答日時： 2019/10/23 16:38

「Sub …」のすぐ後に「Dim 停止 As Balloon」を作っておいて、停止したい時に「停止 = True」を実行して「Ca

ぐ後に「If 停止 Then Exit Sub」を入れればよいのでは？

No.2 回答者： OnneName 回答日時： 2019/10/23 16:29

「シートの削除」プロシージャで戻り値を返すようにして呼び出し元で処理が行われたのかキャンセルされたのかを判定できるようにして、呼び出し元では戻り値を判定して次の処理に行くか処理を終了するかを振り分けるのが一般的手法ですね。

No.1 回答者： kigoshi 回答日時： 2019/10/23 16:20

「シートの削除」プロシージャで、こんな感じにしたらいかがでしょう。

ans1 = MsgBox("処理を続けますか？", vbYesNoCancel)
If ans1 = vbCancel Then Exit Sub
MsgBox ("続けます")
・・・・
・・・・

ってことじゃなくて？