title: Tying an Array of worksheets to a specific workbook
body: <p>The goal of my macro is from a large set of data, divide the data into separate workbooks for each product. After I paste only the specific data into the file, I want to copy 5 separate worksheets from the workbook with all of the data, each worksheet with a pivot table on them, set the data on the pivot table to the data on the spread sheet that I copied over previously. Then refresh the pivot tables.</p>
  
  <p>My biggest question is how to I name an array of worksheets to a work book</p>
  
  <pre><code>Dim cell As Range, DataRng As Range
  Dim curPath As String, curWB As String, newWB
  Dim ArrayCM As Variant
  Dim InxW As Long
  Dim xTable As PivotTable
  
  curPath = ActiveWorkbook.Path &amp; "\"
  curWB = ActiveWorkbook.Name
  'Array of worksheets to be copied over for Company Manger
  Set ArrayCM = curWB.Sheets(Array("CM YTD", "CM MTD", "CM Refurb", "TBM Local", "PSM")) 
  --This Gives me an error
  </code></pre>
  
  <p>Because I'm going to creating several workbooks, I want to define my array to copy over from the master file to the new file. Help on this would be greatly appreciated. </p>