eliminate the object variable when using With statement
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