This is odd Helmut. I have just tried your code and it works fine for me, I
didn't even need the FileFormat property, so there must be something else in
your code.

HTH

Bob

"Helmut" wrote in message
...
Bob,
I get "Run-time error '1004' - Method 'SaveAs' of 'object '_Workbook'
failed."
Helmut

"Bob Phillips" wrote:

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


.