Attribute VB_Name = "Module1"
Option Explicit

Private Sub main()
    Dim acApp As Access.Application
    Dim obj As AccessObject
    Dim dbs As Object
    
    Set dbs = Application.CurrentProject
    ' Search for open AccessObject objects in AllMacros collection.
    For Each obj In dbs.AllMacros
'        If obj.IsLoaded = True Then
            ' Print name of obj.
            Debug.Print obj.Name
'        End If
    Next obj

'Set acApp = New Access.AllMacros

'Set acApp = "C:\StreetFeet\Web-Site\convert.mdb"
'acApp.DoCmd.RunMacro "displayme"



'    Dim dbs As Database
        
'    Set dbs = OpenDatabase("C:\StreetFeet\Web-Site\convert.mdb")
'    DoCmd.RunMacro "displayme"
'    Call dbs.displayme
End Sub