Mega Code Archive
Iterate through all modules located in the database referenced by the CurrentProject object
<![CDATA[
Sub IterateAllModules()
Dim vnt As Variant
With CurrentProject
For Each vnt In .AllModules
Debug.Print vnt.Name
Next vnt
End With
End Sub
]]>