Save As Macro Not Working 100% of Time

[dturgel]

Hi,

I pieced together the following macro to save documents I am working on to one folder and just use the company name listed in cell A4. Every 5th or 6th time I hit the macro the file does not save as an excel file but rather as an unrecognized file type - any idea what I could do to fix this?

Sub MacroSaveAs()
'
' MacroSaveAs Macro
'
' Keyboard Shortcut: Ctrl+Shift+Q
'
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"G:\CLASH\Data\2015 Portfolio Aggs\" & Range("A4").Text _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Thanks!

Daniel

 

[Trevor_S]

Do you always want to save the files as macro enabled - if so, try:

ActiveWorkbook.SaveAs Filename:= "G:\CLASH\Data\2015 Portfolio Aggs\" & Range("A4").Value & ".xlsm"

 

[dturgel]

Will try this - thanks Trevor!

Daniel