Sub IterateOpenReports() Dim myReport As Report For Each myReport In Reports Debug.Print myReport.Name Next myReport End Sub