title: How to save each sheet as a separate workbook except sheet 1?
body: <p>I have an excel workbook with 5 sheets but I only want to save sheet 2 to sheet - 5  but I don't want to save sheet 1. I want to exclude it from saving. How can I do it? </p>
  
  <p>I have tried some codes but I am having difficulties. </p>
  
  <pre><code>Sub SaveShtsAsBook()
  
      Dim xcsvFile As String
      Dim datestring As String
      Dim Count As Integer
  
  
      datestring = DateValue(Now) &amp; Time
      datestring = Replace(datestring, "/", "_")
      datestring = Replace(datestring, ":", "_")
      datestring = Replace(datestring, " ", "_")
  
  '    Application.WindowState = xlMinimized
  '    Application.Visible = False
  
      Application.EnableEvents = True
     ' Application.Calculation = xlCalculationManual
    '  Application.Wait (Now + TimeValue("0:00:10"))
  
      For Count = 1 To 3000
      DoEvents
      Next Count
  
  
      'For Each Sheet In Worksheets
      For Each Sheet In ThisWorkbook.Worksheets ' Safer way to qualify the worksheets with the workbook where this code lies
  
         Select Case Sheet.Name
          Case "Sheet1"
          ' do nothing
  
          Case Else
             xcsvFile = "E:\" &amp; xWs.Name &amp; "_" &amp; datestring &amp; ".csv"
         ' xcsvFile = "E:\" &amp; "\" &amp; xWs.Name &amp; ".csv" 'compare mine to yours to see issues
  
          xWs.Copy
  
          Dim newSheet As Workbook 'setting copied sheet to workbook variable for easier coding
          Set newSheet = ActiveSheet.Parent 'parent of worksheet is workbook
  
          newSheet.SaveAs Filename:=xcsvFile, FileFormat:=xlCSV, CreateBackup:=False
          newSheet.Close False
         End Select
      Next
  End Sub
  </code></pre>