エクセルでマクロを実行するかしないか選択するように設定したい

エクセルで、ワークブックが開くのにあわせてマクロが実行されるようにしています。この動作を実行するかしないかを選択するようにしたいのですが方法がわかりません。
申し訳ないのですが、皆さんのお知恵をお貸しください。

実行しているマクロは、下記のようなマクロです。
Sub auto_open()
Dim wStr As String
today = Format(Now(), "m月d日")
dve = ThisWorkbook.Path
ActiveSheet.Range("c2") = "=SUMPRODUCT(('P:\" & today & "\[1nen.xls]11'!l4:l45=1)*1)"
・
・
・
・
Dim td, x
td = Day(Date)
x = (td - 1) * 11 + 14
MsgBox "今日は" & td & "日ですので、C" & x & "から貼り付けます。"
With ActiveSheet
.Range("C2:AD12").Copy
.Range("C" & x).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
End With
End Sub

No.1 ベストアンサー 回答者： hana-hana3 回答日時： 2007/05/23 15:13

一行目か変数宣言の後に、

If MsgBox("自動実行を中止しますか？", vbDefaultButton2 + vbYesNo, "処理選択") = vbYes Then Exit Sub

この回答へのお礼

ありがとうございます。　できました！！

お礼日時：2007/05/23 15:53