VBA to save macro enabled workbook to regular workbook

**Jiptastic** · 01-15-2013, 06:31 PM

I want to have VBA that saves a Macro Enabled workbook into a regular workbook. It bugs and says "Run-time error '1004' this extension can not be used with the selected file type. If I change it to "xlsm" it works fine, but that's not what I want. Any help?

Dim newFileName As String
    
       newFileName = "QA Fix It " & Format(Now, "MM-DD HHMM") & ".xlsx"
    
     ActiveWorkbook.SaveAs Filename:="M:\My Folder\Associate QA Reports\Associate QA fix it reports\\" & newFileName

**jaslake** · 01-15-2013, 06:41 PM

Hi Jiptastic

You can try one of these...don't know where that extra backslash comes from

ActiveWorkbook.SaveAs Filename:="M:\My Folder\Associate QA Reports\Associate QA fix it reports\\" & newFileName, FileFormat:=51

ActiveWorkbook.SaveAs Filename:="M:\My Folder\Associate QA Reports\Associate QA fix it reports\" & newFileName, FileFormat:=51

**HSV** · 01-15-2013, 09:41 PM

Don't forget the displayalerts.

Dim newFileName As String
    application.displayalerts = false
     newFileName = "QA Fix It " & Format(Now, "MM-DD HHMM") & ".xlsx"
ActiveWorkbook.SaveAs "M:\My Folder\Associate QA Reports\Associate QA fix it reports\" & newFileName, 51
   application.displayalerts = true