Save workbook with sheet name macro

[doriannjeshi]

Hi,
I need to save a workbook that has only that sheet as a xlsx file , to a certain path, by copying the name of the worksheet + todays date

 

[MARK858]

Maybe

Sub SaveFile()

    Dim fname As String, path As String, fDate As String

    fDate = Format(Date, "dd_mm_yyyy") ' change format to suit
    path = "YourFilePath" ' your file path without a closing \

    Application.DisplayAlerts = False
   
    fname = Sheets(1).Name & " " & fDate
    ActiveWorkbook.SaveAs Filename:=path & "\" & fname & ".xlsx", FileFormat:=51


End Sub

 

[doriannjeshi]

Thank you Mark

 

[doriannjeshi]

I am running into a problem when running the macro through a shortcut , it is saving it as sheet1 instead of the real sheet name

 

[Skyybot]

Maybe

Sub SaveFile()

    Dim fname As String, path As String, fDate As String

    fDate = Format(Date, "dd_mm_yyyy") ' change format to suit
    path = "YourFilePath" ' your file path without a closing \

    Application.DisplayAlerts = False
 
    fname = Sheets(1).Name & " " & fDate
    ActiveWorkbook.SaveAs Filename:=path & "\" & fname & ".xlsx", FileFormat:=51


End Sub

@doriannjeshi , If by "Real" name you mean CodeName then simply change

Sheets(1).Name

to

Sheets(1).CodeName

 

[doriannjeshi]

Thank you Skybot for the explanation
the shortcut I used for the macro saved it with sheetcode instead of the name
but switching to a new shortcut is not doing it anymore

 

[Skyybot]

Thank you Skybot

You're most welcome but @MARK858 deserves the credit on this one.