Sub NewReport() Dim myReport As Report Dim strReportName As String strReportName = "myReport" Set myReport = CreateReport DoCmd.Save , strReportName DoCmd.Close , , acSaveYes End Sub