Data Type VisualBasic Script

Sub NewWorkbook()
         Dim myWorkbook As Workbook, myWorksheet As Worksheet
         Set myWorkbook = Workbooks.add
         Set myWorksheet = myWorkbook.Worksheets.add(After:=myWorkbook.Sheets(myWorkbook.Sheets.Count))
         myWorksheet.name = "January"
         myWorksheet.range("A1").value = "Sales Data"
         myWorkbook.SaveAs FileName:="YourExcel2007File.xlsx"
     End Sub