有谁可以来解释一下这段代码

初学者请教，下面这段代码本意是要在立即窗口打印当前数据库中所有的宏名，可是没有实现预期的效果，单步执行时发现程序从With 子句直接跳到End with 子句，谁能给个解释

Sub IterateAllMacros()
    'Declare iteration variable
    Dim vnt As Variant
    'Loop through each macro in the current project,
    'printing the name of each macro to the Immediate window
    With CurrentProject
        For Each vnt In .AllMacros
            Debug.Print vnt.Name
        Next vnt
    End With
End Sub