Sub add() Set myWorkbook1 = Workbooks.Add Application.DisplayAlerts = False myWorkbook1.SaveAs Filename:="C:\Data\SalesData1.xlsx" Application.DisplayAlerts = True End Sub