Add a worksheet and save it
Sub NewWorkbook() Dim myWorksheet As Worksheet With Workbooks.Add Set myWorksheet = .Worksheets.Add(After:=.Sheets(.Sheets.Count)) myWorksheet.Name = "January" myWorksheet.Range("A1").Value = "Sales Data" .SaveAs Filename:="JanSales.xls" End With End Sub