Experts Exchange connects you with the people and services you need so you can get back to work.
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
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.