Как проверить имя макроса?

KeysBoundTo KeyCategory:=wdKeyCategoryMacro, Command:="..."

Public Function Macro_NamesList( _
    Optional ByRef SourceVBProject As VBIDE.VBProject = Nothing, _
    Optional ByRef ComponentType As VBIDE.vbext_ComponentType = -1, _
    Optional ByRef CommandsOnly As Boolean = False) As String
' создание списка макросов активных документов
' SourceVBProject - проект выборки (не задан - все)
' ComponentType - тип модулей выборки (<0 - все)
' CommandsOnly - выборка только команд (список Alt+F8)
' возвращает строку имен макросов разделенных символом vbLf,
' где формат имен:  "Проект.Модуль.Макрос"

    Macro_NamesList = ""
    'On Error Resume Next ' тест
    ' все проекты
    If SourceVBProject Is Nothing Then
        For Each SourceVBProject In VBE.VBProjects
            GoSub sub_Project
        Next SourceVBProject
    ' заданный проект
    Else
        GoSub sub_Project
    End If
    Exit Function
    
sub_Project: ' выборка из проекта SourceVBProject
        
    With SourceVBProject
        ' защищенный проект
        If .Protection <> VBIDE.vbext_pp_none Then Return
        ' пустой проект
        If .VBComponents.count <= 0 Then Return
        ' перебор модулей проекта
Dim myComponent As VBIDE.VBComponent
            
        For Each myComponent In .VBComponents
            GoSub sub_Component
        Next myComponent
    End With
    Return
        
sub_Component: ' выборка из модуля myComponent
        
    ' тип модуля
    If ComponentType < 0 Then
    ElseIf myComponent.Type <> ComponentType Then
        Return
    End If
    ' командный модуль
    If CommandsOnly Then
        Select Case myComponent.Type
            Case vbext_ct_StdModule
            Case vbext_ct_Document
            Case Else: Return
        End Select
    End If
    ' код модуля
Dim myCode As VBIDE.CodeModule
Dim strMacro As String
Dim iLine&
        
    Set myCode = myComponent.CodeModule
    ' перебор макросов модуля
    For iLine = myCode.CountOfDeclarationLines + 1 To myCode.CountOfLines
        ' имя макроса
        strMacro = myCode.ProcOfLine(Line:=iLine, ProcKind:=vbext_pk_Proc)
        ' пропуск кода макроса
        iLine = iLine + _
            myCode.ProcCountLines(ProcName:=strMacro, _
                                  ProcKind:=vbext_pk_Proc)
        GoSub sub_Macro
    Next iLine
    Return
    
sub_Macro: ' выборка макроса strMacro
    
    If Len(strMacro) <= 0 Then Return
    ' команда
    If CommandsOnly Then

Dim strBodyLine$
        
        strBodyLine = myCode.Lines(myCode.ProcBodyLine(strMacro, vbext_pk_Proc), 1)
        If strBodyLine Like "Sub " & strMacro & "()*" Then
        ElseIf strBodyLine Like "Public Sub " & strMacro & "()*" Then
        ElseIf strBodyLine Like "Static Sub " & strMacro & "()*" Then
        ElseIf strBodyLine Like "Public Static Sub " & strMacro & "()*" Then
        Else
            Return
        End If
    End If
    ' сохраняем
    If Len(Macro_NamesList) > 0 Then Macro_NamesList = Macro_NamesList & vbLf
    Macro_NamesList = Macro_NamesList & _
        SourceVBProject.Name & "." & myComponent.Name & "." & strMacro
    Return
    
End Function

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<wne:vbaSuppData xmlns:ve="http://schemas.openxmlformats.org/markup-compatibility/2006"
             xmlns:o="urn:schemas-microsoft-com:office:office"
             xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships"
             xmlns:m="http://schemas.openxmlformats.org/officeDocument/2006/math"
             xmlns:v="urn:schemas-microsoft-com:vml"
             xmlns:wp="http://schemas.openxmlformats.org/drawingml/2006/wordprocessingDrawing"
             xmlns:w10="urn:schemas-microsoft-com:office:word"
             xmlns:w="http://schemas.openxmlformats.org/wordprocessingml/2006/main"
             xmlns:wne="http://schemas.microsoft.com/office/word/2006/wordml">
   <wne:mcds>
      <wne:mcd wne:macroName="NORMAL.THISDOCUMENT.OPENCOPYPRINTDELETE"
             wne:name="Normal.ThisDocument.OpenCopyPrintDelete"
             wne:bEncrypt="00"
             wne:cmg="56"/>
      <wne:mcd wne:macroName="NORMAL.NEWMACROS.MYRESTARTNUMBERING"
             wne:name="Normal.NewMacros.MyRestartNumbering"
             wne:bEncrypt="00"
             wne:cmg="56"/>
      <wne:mcd wne:macroName="NORMAL.NEWMACROS.WHOLETABLEBORDERS"
             wne:name="Normal.NewMacros.WholeTableBorders"
             wne:bEncrypt="00"
             wne:cmg="56"/>
      <wne:mcd wne:macroName="NORMAL.NEWMACROS.SAVETOFILES"
             wne:name="Normal.NewMacros.SaveToFiles"
             wne:bEncrypt="00"
             wne:cmg="56"/>
      <wne:mcd wne:macroName="NORMAL.THISDOCUMENT.CELLALIGNDECIMAL"
             wne:name="Normal.ThisDocument.CellAlignDecimal"
             wne:bEncrypt="00"
             wne:cmg="56"/>
      <wne:mcd wne:macroName="NORMAL.THISDOCUMENT.FILEPRINT"
             wne:name="Normal.ThisDocument.FilePrint"
             wne:bEncrypt="00"
             wne:cmg="56"/>
   </wne:mcds>
</wne:vbaSuppData>