title: Saving the Output in a new excel file
body: <p>I want to save my final output sheet in to a new excel file and I have created a button to execute this. </p>
  
  <pre><code>Set NewBook = Workbooks.Add
  Set ws = ThisWorkbook.Worksheets("Output")
  Do
      fName = Application.GetSaveAsFilename
  Loop Until fName &lt;&gt; False
  ws.Copy Before:=NewBook.Sheets(1)
  NewBook.SaveAs Filename:=fName &amp; Excel.XlFileFormat.xlOpenXMLWorkbook
  NewBook.Close
  </code></pre>
  
  <p>The code is saving the output file in a windows shell or any unkbown format. How can I modify it to save the file in a excel format(without macros) and then close it automatically?. Thanks.</p>