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

[DocAElstein]

or ?

........

Hi snb
The second code saves as a .csv File.
So does the first after I spotted the deliberate mistake

Sub M_snb1() ' http://www.excelfox.com/forum/showthread.php/2123-VBA-Macro-To-Create-An-Excel-File-With-Same-Sheet-Name-As-Workbook-Name?p=9950#post9950
    ThisWorkbook.Sheets(1).Copy
    With ActiveWorkbook
    Dim MyFileAWNameOnly As String: Let MyFileAWNameOnly = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".") - 1))
         .SaveAs MyFileAWNameOnly, 23
         .Close 0
     End With
End Sub

Alan