Data Type VisualBasic Script

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