title: How to save a macroless copy without closing the current file?
body: <p>I am trying to save a copy of <code>ThisWorkbook</code> in <code>xlsx</code> while using <code>SaveCopyAs</code>. The problem is that <code>SaveCopyAs</code> saves the file as a macro enabled file, <code>xlsb</code> in my case which is not desired and while <code>SaveAs</code> does what I need, it also closes <code>ThisWorkbook</code> .</p>
  
  <p>Is there an easier way to save in a format that does not support macros and without doing workarounds ?</p>
  
  <p>Currently the best solution I found is the code snip below, but it's kinda finicky and it does not save the <code>ContentTypeProperties</code> that I need further on in the project, so does need to be added again.</p>
  
  <p>Any ideas are appreciated, thanks!</p>
  
  <pre><code>Dim sPath as String
  
  sPath = ThisWorkbook.FullName
  Application.DisplayAlerts = False
  ActiveWorkbook.SaveAs ThisWorkbook.Path &amp; "\" &amp; sFileName &amp; ".xlsx", 51
  Application.Workbooks.Open (sPath)
  Application.DisplayAlerts = True
  Exit Sub
  </code></pre>