Data Type VisualBasic Script

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:="YourExcel2007File.xlsx"
       End With
     End Sub