Access VisualBasic Script

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