title: copy lots of sheets and delete a few sheets
body: <p>I was wondering if someone could help me with the code. I am almost there but not fully.</p>
  
  <pre><code>Sub col_export_Klikken()
  
  Dim wb As Workbook
  countsheets= ThisWorkbook.Sheets.Count
  
  Set wb  = Workbooks.Add
   For nsheets = 1 To countsheets
    ThisWorkbook.Sheets("sheetname").Copy After:=wb.Sheets(1)
   Next nsheets
  ThisWorkbook.Sheets("mainuser").delete
  ThisWorkbook.Sheets("maincode").delete
  
  wb.SaveAs "C:\Users\not\Desktop\wb2.xlsx"
  End Sub
  </code></pre>
  
  <p>This code doesn't work yet. But I hope with your help I can figure out how I can save sheets in a file and delete a few sheets.
  First problem I am facing is using a sheetname within quotes. This is very static and the sheetname will change continue. Everytime I generate a code I get lots of worksheets. </p>
  
  <p>I want to have this code to work like it copies all the sheets in the workbook. After that it will delete a few sheetnames (these sheets are static so this can be done easily). </p>