Check this:
Dim wbk As Workbook
Dim wsh As Worksheet
Dim sFile As String
sFile = outPath & "\" & Format(sdate, "yymm") & ".xlsx"
Set wbk = Application.Workbooks.Add
Set wsh = wbk.Worksheets(1)
wsh.Name = "Company Name"
wbk.SaveAs sFile
Set wsh= Nothing
Set wbk = Nothing
For further details, please see:
Workbook.SaveAs Method (Excel)[
^]