title: How to fix VBA Error "Cannot saving ".xlsm" to ".xlsx""?
body: <p>I'm dividing a workbook in several stores.</p>
  
  <p>I choose the store I want to see, and the code filters the data of the other stores and deletes that data, only leaving the data of the choosen store.</p>
  
  <p>and after this I want to make a new workbook, saving as my ".xlsm" file to ".xlsx"</p>
  
  <p>But after runing the code i have a pop up message asking if i want "to continue saving as a macro-free workbook"</p>
  
  <p>If i click yes, i have a error saying:</p>
  
  <blockquote>
    <p>1004 VB Projects and XLM sheets cannot be saved in a macro-free
    workbook</p>
  </blockquote>
  
  <p>What can i do to fix it?</p>
  
  <p>this is the code to save the new workbook:</p>
  
  <pre><code>Dim Fname As String
  
  Fname = "02.VIM_REPORT MENSAL - " &amp; Worksheets("aux").Range("V2") &amp; " - " &amp; Worksheets("aux").Range("V3") &amp; ".xlsx"
  ActiveWorkbook.SaveAs Filename:=Fname, FileFormat:=xlOpenXMLWorkbook
  
      ActiveWorkbook.Close False
  </code></pre>