Option Compare Database Option Explicit Public Sub ShowObjects() Dim objAO As AccessObject Dim objCP As Object Set objCP = Application.CurrentProject For Each objAO In objCP.AllReports Debug.Print objAO.Name Next End Sub