' Code courtesy of UtterAccess Wiki
' http://www.utteraccess.com/wiki/index.php/Category:FunctionLibrary
'
' You are free to use this code in any application,
' provided this notice is left unchanged.
'
' REV  DATE                          DESCRIPTION
' 1.0 2010-08-06              initial release
' 1.1 2010-09-12              revised header
'
Public Sub PrintModuleNamesToImmediate()

 Dim i As Integer

 For i = 1 To VBE.ActiveVBProject.VBComponents.Count
   Debug.Print VBE.ActiveVBProject.VBComponents(i).Name
 Next i

End Sub