Dim wb As Workbook
Dim xpath As String, xname As String
Dim spath As String
Set wb = ActiveWorkbook
xpath = "Your file path here"
xname = "Your workbook name which you want to give at time save"
spath = xpath & "\" & xname
wb.Save Filename:=spath & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Open in new window
IT issues often require a personalized solution. With Ask the Experts™, submit your questions to our certified professionals and receive unlimited, customized solutions that work for you.