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