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