With ActiveWorkbook.VBProject.VBComponents("ЭтаКнига")
        lCountLines = .CodeModule.CountOfLines
        lStartLine = .CodeModule.CountOfDeclarationLines + 1
        For li = lStartLine To lCountLines
            sProcName = .CodeModule.ProcOfLine(li, 0)
            If sProcName = "Workbook_Open" Then
                MsgBox "Блок обработки события Open уже существует"
                Exit Sub
            End If
            li = li + lProcLineCount
        Next li
    End With

    Dim lProcLineNum As Long, vMdl
    Dim sProcName As String
    sProcName = "Workbook_Open"
    Set vMdl = ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.CodeName)
    On Error Resume Next
    'ProcStartLine - встроенная функция
    ' ищет в указанном модуле(vMdl) номер строки с именем заданной процедуры
    lProcLineNum = vMdl.CodeModule.ProcStartLine(sProcName, 0)
    If lProcLineNum > 0 Then
        MsgBox "Функция найдена"
        Exit Sub
    End If