The AllMacros collection allows you to iterate through all macros stored in the current project.
Sub IterateAllMacros() Dim vnt As Variant With CurrentProject For Each vnt In .AllMacros Debug.Print vnt.Name Next vnt End With End Sub