Alle Makros einer Tabelle in einer Combobox

Sub cboMacros_Click()
Dim iRow As Integer
Dim objWB As Object
cboMacros.Clear
For Each objWB In ThisWorkbook.VBProjekt.VBComponents.CodeModule
With objWB.CodeModule
For iRow = 1 To .CountOfLines
If .ProcOfLine(iRow, 0) > "" Then
If .ProcBodyLine(.ProcOfLine(iRow, 0), 0) = iRow Then
cboMacros.AddItem .ProcOfLine(iRow, 0)
End If
End If
Next iRow
End With
Next
End Sub

Sub cboMacros_DropButtonClick()
Dim iRow As Integer
cboMacros.Clear
With ThisWorkbook.VBProject.VBComponents("BasMain").CodeModule
For iRow = 1 To .CountOfLines
If .ProcOfLine(iRow, 0) > "" Then
If .ProcBodyLine(.ProcOfLine(iRow, 0), 0) = iRow Then
cboMacros.AddItem .ProcOfLine(iRow, 0)
End If
End If
Next iRow
End With
msgbox "Makros wurden eingelesen!"
End Sub