Worksheet_Activate()イベントのあるシートを別ブックにコピーした時、コンパイルエラーを起こしたくない

Question

ExcelのVBAにて、アプリケーションを作成しています。

件名の通り、シートにWorksheet_Activate() イベントを用意し、

処理を標準モジュールに記載して呼び出しています。

そのシートを、手作業による操作（シートを選択→右クリック→移動またはコピー）で

別ブックを選択して別ブックにコピーした際、移動先のブックでコンパイルエラー（SubまたはFunctionが定義されていません）が発生します。

コンパイルエラーは、Worksheet_Activate() イベント内で、標準モジュールにあるメソッドを呼び出しているところです。

コンパイルエラーのため、On Error Resume Next を設定してもメッセージが表示してしまいます。

コードで、コンパイルエラーを発生させないようなことはできるのでしょうか？

または、みなさまこういう場合はどのように対処しているでしょうか？

#VBAのプロパティ設定でメッセージボックスを非表示にする方法は知っていますが、

　ユーザーの設定を変更することはできないため、On Error のように出来ないかと。

#今のところ、説明書に「別ブックにコピーしたらこのウィンドウが出るので、＜OK＞で閉じてください。」と記載する予定です。

Answer 1

標準モジュールのマクロを呼び出しているだけならば、

ThisWorkbook モジュールの Workbook_SheetActivate イベントを

利用して、下記のようにシート名をチェックして、マクロをCall

すれば良いでしょう。

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

  If (Sh.Name = "Sheet1") Then

        MsgBox "Activate"   　　' Call 標準モジュールのマクロ

    Else

        ・・・

    End If

End Sub

その代わり、シートモジュールのActivateイベントは削除します。

Answer 2

ありがとうございます！

そのようなテクニックがあったのですね。

ExcelVBAは10年以上ですが、知りませんでした。

質問して良かったです。ありがとうございました。