The AllReports collection allows you to loop through all reports in the current project.
Sub IterateAllReports() Dim vnt As Variant With CurrentProject For Each vnt In .AllReports Debug.Print vnt.Name Next vnt End With End Sub