Hi,
Try using this code once and let me know if it works-
ActiveWorkbook.SaveCopyAs Application.GetSaveAsFilename(InitialFileName:=Sheets("Sheet2").Range("A1") & "Priorpolicyinfo17.xlsm", FileFilter:="Excel Files (*.xlsm), *.xlsm")
This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
I am trying to save a coy of a file that has the save as window pop up with an initial name and set to an xlsm file type. Here is the code I have but it is not working:
ActiveWorkbook.SaveCopyAs Application.GetSaveAsFilename (InitialFileName:=Sheets("Sheet2").Range("A1") & "Priorpolicyinfo17",FileFilter:= “Excel Files (.xlsm), xlsm”)
Thanks in advance for the help.
Hi,
Try using this code once and let me know if it works-
ActiveWorkbook.SaveCopyAs Application.GetSaveAsFilename(InitialFileName:=Sheets("Sheet2").Range("A1") & "Priorpolicyinfo17.xlsm", FileFilter:="Excel Files (*.xlsm), *.xlsm")