Print Names of all reports in a database

If you like to know the names of the reports in access database.

Here is the code-

Sub print_all_report_names()
'to know names of all reports
Dim rpt As Object
For Each rpt In Application.CurrentProject.AllReports
MsgBox rpt.Name
Next
End Sub