title: Copy and Save As several sheets keeping fixed Sheet VBA
body: <p>I have a workbook with 15 sheets and I'd like to Save As new Workbooks keeping "Sheet1" fixed.</p>
  
  <p>Like this, after save I'd have files wwith the following sheets:</p>
  
  <pre><code>File 1: "Sheet1", "Sheet2"
  File 2: "Sheet1", "Sheet3"
  File 3: "Sheet1", "Sheet4"
  File 4: "Sheet1", "Sheet5"
  </code></pre>
  
  <p>This is what I got so far</p>
  
  <pre><code>Sub Splitbook()
  Dim xPath As String
  Dim xWs As Worksheet 
  xPath = Application.ActiveWorkbook.Path
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  If xWs.Name &lt;&gt; "Sheet1" Then
      For Each xWs In ThisWorkbook.Sheets(Array("Sheet1", xWs)).Copy
         Application.ActiveWorkbook.SaveAs Filename:=xPath &amp; "\" &amp; xWs.Name &amp; ".xlsx"
         Application.ActiveWorkbook.Close False
      Next
  End If
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True
  End Sub
  </code></pre>
  
  <p>Can anyone help me, please?</p>
  
  <p>Thanks!</p>