Reports Object (Project)
Contains a collection of Report objects, where each report is a custom report.
The Reports object is the collection of custom reports in a project. It does not include the built-in reports, such as Project Overview, Critical Tasks, or Milestone Report. Use the Project.Reports property to get the Reports collection object, as in the following example:
Sub ListCustomReports() Dim oReport As Report Dim msg As String Dim msgBoxTitle As String msg = "" msgBoxTitle = "Custom reports in '" & ActiveProject.Name & "'" For Each oReport In ActiveProject.Reports msg = msg & oReport.Index & ": " & oReport.Name & vbCrLf Next oReport If ActiveProject.Reports.Count > 0 Then MsgBox Prompt:=msg, Title:=msgBoxTitle Else MsgBox Prompt:="This project contains no custom reports.", _ Title:=msgBoxTitle End If End Sub