Use the report object variable to point at each report in the Reports collection
Sub IterateOpenReports() Dim myReport As Report For Each myReport In Reports Debug.Print myReport.Name Next myReport End Sub