Hallo zusammen
Ich habe vor Jahren, dieses geniale Makro von diesem Forum bekommen
Jetzt möchte ich es etwas weiterentwickeln, indem ich speziell auf das aktuelle Modul zugreife (im Makro2.xlsm wäre das "Modul2"

Sub to_MakroModulListe_VBA_Herber()
Dim vbc As Object, sModul$, sTmp$
For Each vbc In ActiveWorkbook.VBProject.VBComponents
Debug.Print vbc.Type
sModul = sModul & vbc.codemodule.Name & vbLf
'If vbc.codemodule.Name = Active.codemodule.Name Then Stop 'geht leider nicht
Next vbc
MsgBox sModul
End Sub

https://www.herber.de/bbs/user/168984.xlsm

Ich freue mich auf einen hilfreichen Tipp
mfg
Pepi