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