sFName = Application.GetSaveAsFilename(FileFilter:="Excel Files (*.xlsx), *.xlsx, Macro Enabled Workbook" & "(*.xlsm), *xlsm")
If sFName <> "False" Then
ws.SaveAs sFName, 56
End If
With sFName set as a string. I am using MS Office 2016 on win10 if that helps, have not tried...