Did you try adding FileFormat:= xlOpenXMLWorkbookMacroEnabled to the save
statement?

HTH

Bob

"Helmut" wrote in message
...
I have the following code within an "xltm" file which I want to then save
as
"xlsm":

Do
fName = Application.GetSaveAsFilename(InitialFileName:="ku pa",
filefilter:= _
" Excel Macro Enabled Workbook (*.xlsm), *.xlsm,")
Loop Until fName < False
ActiveWorkbook.SaveAs Filename:=fName

I get ERROR on last statement. How can I add "FileFormatValue = 52" to
save
the file as a "MacroEnabled"
thanks