VBA Macro To Create An Excel File With Same Sheet Name As Workbook Name

[snb]

or ?

Sub M_snb()
    Thisworkbook.Sheets(1).Copy
    With ActiveWorkbook
         .SaveAs ThisWorkbook.Name, 23
         .Close 0
     End With
End Sub

or

Sub M_snb()
    ThisWorkbook.Sheets(1).Copy
    With ActiveWorkbook
         .SaveAs CreateObject("scripting.filesystemobject").getbasename(ThisWorkbook.FullName), 23
         .Close 0
     End With
End Sub