ダブルクリックイベントを一定のシートでのみ有効にするには?

Question 73.4 Excel VBA Borad (掲示板)より Previous Next
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
というものがありますが、この動作はすべてのシートで起動してしまいます。
例えば 「○○積算書」といったようにシートの名前の最後が「積算書」とあるシートのみでしか起動しないようにできませんか? どなたかご教授願います。
Answer   2005.3.9 よっしー
もっと良いやり方があるかも知れませんが、こんなんどうでしょう?
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, _
                            ByVal Target As Range, Cancel As Boolean)
Dim MySheetName As String
Dim Criteria As String

    '今開いているシート
    '(つまりダブルクリックしたセルが含まれるシート)の名前を取得
    MySheetName = ActiveWorkbook.ActiveSheet.Name
    '条件となる文字列を取得
    Criteria = "積算書"

    '「シート名の末尾」が「条件とした文字列」の場合は作業をする
    If MySheetName Like "*" & Criteria Then
        'メッセージを出します(ここは目的のコードに変えて下さい)
        MsgBox "Operation Completed !"
    End If
End Sub
ありがとうございました
パーフェクトです! こんなに早く対応してもらいまして、本当にありがとうございました。
自分ももっとVBAを勉強したいと思います。

 

Excel VBA Macro