Sub Nomad87()
    Const nameIn = "пример.xls"
    Const name2skip = "Шаблон"
    Const findWhere As Long =  2 
    Const findWhat = "*работ*нашего*предпр*"
    Const totalCol As Long =  7 
    Const likeWhat = "*#.#*"
    
    Dim h As Long, sum As Double, r As Range

    sum =  0 
    With Workbooks(nameIn).Worksheets
        For h =  1  To .Count
            With .Item(h)
                If .Name <> name2skip Then
                    Set r = .Columns(findWhere).Find(What:=findWhat _
                        , LookIn:=xlFormulas _
                        , MatchCase:=False, SearchFormat:=False)
                    If Not r Is Nothing Then
                        Set r = r.Offset( 1 )
                        Do While r Like likeWhat
                            sum = sum + .Cells(r.Row, totalCol)
                            Set r = r.Offset( 1 )
                        Loop
                    End If
                End If
            End With
        Next
    End With
    MsgBox sum
End Sub