Append a worksheet to the end of the worksheet list
Sub NewWorkbook()
With Workbooks.Add
With .Worksheets.Add(After:=.Sheets(.Sheets.Count))
.Name = "January"
.Range("A1").Value = "Sales Data" End With
.SaveAs Filename:="JanSales.xls" End With End Sub