Sub NewWorkbook()
With Workbooks.Add
With .Worksheets.Add(After:=.Sheets(.Sheets.Count))
.Name = "January"
.Range("A1").Value = "Sales Data"
End With
.SaveAs Filename:="YourExcel2007File.xlsx"
End With
End Sub