title: How to copy multiple sheets to a new workbook?
body: <p>I am trying to create a Save As function for a report.</p>
  
  <p>The Master sheet has 25 tabs. I am looking to copy 23 of the 25 to a daily Save As to a specific folder.</p>
  
  <p>I have an Error Message warning box blocking users from saving the file so they are unable to mess with it.</p>
  
  <pre><code>Sub SaveMain()
  
  Application.EnableEvents = False
  'Stop ThisWorkbook VBA currently blocking the user being able to Save
  
  Dim FlName As String
  Dim FilePath As String
  Dim NewWkBk As Workbook
  Dim FileDate As String
  
      FlName = " September Reporting" &amp; InputBox("Enter Yesterday's Date DD/MM/YYYY:", "Creating New File...") &amp; ".xlsb"
      FilePath = "Z:\Call Agent Brief\Reporting\September Reporting\Reports"
  
      Set NewWkBk = Workbooks.Add
      Windows("September Reports Calculator - MASTER COPY.xlsb").Activate
      Sheets(Array("Admin Tab", "Home Tab", "Dashboard", "Drop Down Values", _
          "Reports Home", "Deployments", "Daily Summary", "Daily Breakdown", _
          "Monthly Summary", "Monthly Breakdown - Title Page", "Monthly Breakdown", _
          "Monthly Rolling 12 Months", "Monthly Cancellations", "Non-Deployments", _
          "Non-Deployments Summary", "Non-Deployments Breakdown", "FNOL", "FNOL Summary", _
          "FNOL Breakdown", "FNOL Deployments by User", "FNOL Deployments by Team", _
          "FNOL Deployments by Insurer", "FNOL Non-Deployed Opportunities")).Copy After:=Workbooks(NewWkBk)
      NewWkBk.SaveAs FilePath &amp; "\" &amp; FlName, FileFormat:=xlsb
  
  
  Application.EnableEvents = True
  
  End Sub
  </code></pre>
  
  <p>When running the macro the form for the date entry correctly loads, however a runtime error message appears. </p>
  
  <blockquote>
    <p>Run-time error ‘13’: Type mismatch</p>
  </blockquote>
  
  <p>The debug highlights the long <code>Sheets copy</code> line. Even when I limit it to copying one tab it comes back with the same issue. </p>
  
  <p>I cannot Paste Values to a new sheet as there is a lot of formatting in the Master sheet designed to make this user friendly. As far as I can tell the only way is to make a copy of the entire sheet.</p>