title: VBA Copy Paste Values Multiple Sheets at once
body: <p>I've got a macro that I use to copy an array of sheets in to a new workbook, and then copy paste values the sheets to save a new copy. THe only way I was able to figure out how to do it was to select, copy and paste each individual sheet, is there a way to do multiple sheets with less code?</p>
  
  <pre><code>Set Name = Sheets("TOTAL STO").Range("file.name")
  Sheets(Array("TOTAL STO", "TOTAL STO - OLD LOGIC", "OWN BUY STO", "CONSIGNMENT STO")).Select
  Sheets(Array("TOTAL STO", "TOTAL STO - OLD LOGIC", "OWN BUY STO", "CONSIGNMENT STO")).Copy
  
  Set NewWB = ActiveWorkbook
  NewWB.Sheets("TOTAL STO").Cells.Copy
  NewWB.Sheets("TOTAL STO").Range("A1").PasteSpecial Paste:=xlValues
  NewWB.Sheets("TOTAL STO - OLD LOGIC").Cells.Copy
  NewWB.Sheets("TOTAL STO - OLD LOGIC").Range("A1").PasteSpecial Paste:=xlValues
  NewWB.Sheets("OWN BUY STO").Cells.Copy
  NewWB.Sheets("OWN BUY STO").Range("A1").PasteSpecial Paste:=xlValues
  NewWB.Sheets("CONSIGNMENT STO").Cells.Copy
  NewWB.Sheets("CONSIGNMENT STO").Range("A1").PasteSpecial Paste:=xlValues
  </code></pre>