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:="JanSales.xls"
End Sub