Sub IterateAllMacros() Dim vnt As Variant With CurrentProject For Each vnt In .AllMacros Debug.Print vnt.Name Next vnt End With End Sub