Access VisualBasic Script

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