Sub add() Workbooks.Add ActiveWorkbook.SaveAs Filename:="C:\Data\SalesData1.xlsx" Workbooks.Add ActiveWorkbook.SaveAs Filename:="C:\Data\SalesData2.xlsx" Workbooks("SalesData1.xlsx").Activate End Sub