title: copy all workbook sheets to a new workbook VBA
body: <p>I am using this code to copy every sheet in a workbook to a new one and it works fine but it reverses the order of the sheets, would there be anyway to keep it from doing this?</p>
  
  <pre><code>Sub copy()
  
  'copies all the sheets of the open workbook to a new one
  Dim thisWb As Workbook, wbTemp As Workbook
  Dim ws As Worksheet
  
  On Error GoTo Whoa
  
  Application.DisplayAlerts = False
  
  Set thisWb = ThisWorkbook
  Set wbTemp = Workbooks.Add
  
  On Error Resume Next
  For Each ws In wbTemp.Worksheets
      ws.Delete
  Next
  On Error GoTo 0
  
  For Each ws In thisWb.Sheets
      ws.copy After:=wbTemp.Sheets(1)
  Next
  wbTemp.Sheets(1).Delete
  
  'save vba code here
  Application.Dialogs(xlDialogSaveAs).Show Range("CA1").Text &amp; "- (Submittal) " &amp; Format(Date, "mm-dd-yy") &amp; "_" &amp; Format(Time, "hhmm") &amp; ".xlsx"
  
  
  
  LetsContinue:
  Application.DisplayAlerts = True
  Exit Sub
  Whoa:
  MsgBox Err.Description
  Resume LetsContinue
  
  End Sub
  </code></pre>
  
  <p>I'm copying all the sheets so i can save it as a different file extension and this was the only way i found that worked.</p>
  
  <p>Workbook before it copies
  <a href="https://i.stack.imgur.com/dB713.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/dB713.png" alt="enter image description here"></a></p>
  
  <p>Workbook after it copies
  <a href="https://i.stack.imgur.com/1etCO.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/1etCO.png" alt="enter image description here"></a></p>