title: Create array of worksheets not variant
body: <p>I would like to create an array of type worksheet, not variant, then populate the array using the Array function and finally pass the array to the worksheet.copy function to crate a new workbook of the worksheets in the array variables.</p>
  
  <p>The following code works but none of the arrays are of type worksheet and two of the example arrays are populated with the worksheet names.</p>
  
  <pre><code>Dim wbkThis         As Workbook
  Dim wstX            As Worksheet
  Dim wstY            As Worksheet
  Dim wstZ            As Worksheet
  Dim arrWSA          As Variant
  Dim arrWSB()        As Variant
  Dim arrWSC(1 To 3)  As Variant
  
  Cancel = True
  
  Set wbkThis = ThisWorkbook
  Set wstX = wbkThis.Worksheets("SheetX")
  Set wstY = wbkThis.Worksheets("SheetY")
  Set wstZ = wbkThis.Worksheets("SheetZ")
  ReDim arrWSA(1 To 3) As Variant
  ReDim arrWSB(1 To 3) As Variant
  
  arrWSA = Array(wstX, wstY, wstZ)
  arrWSB = Array(wstX.Name, wstY.Name, wstZ.Name)
  arrWSC(1) = wstX.Name
  arrWSC(2) = wstY.Name
  arrWSC(3) = wstZ.Name
  
  arrWSA(1).Copy
  Worksheets(arrWSB()).Copy
  Worksheets(arrWSC()).Copy
  </code></pre>