title: Cloning a Collection
body: <p>I have two collections - <code>collection1</code> and <code>collection2</code></p>
  
  <p><code>collection1</code> has a number of class objects in it and I am trying to fill <code>collection2</code> with copies of the same objects using the following command:</p>
  
  <pre><code>Set collection2 = collection1
  </code></pre>
  
  <p>This doesn't give me the desired result though, because when I use </p>
  
  <pre><code>collection2.Remove 1      
  </code></pre>
  
  <p>It removes the object at index 1 from <strong>both</strong> collections. </p>
  
  <p>Below is the full code, which I hoped would output <code>10</code> objects in <code>collection1</code> after removing one from collection2</p>
  
  <pre><code>Sub test()
      Dim collection1 As Collection
      Dim collection2 As Collection
      Dim testObj As Worksheet
      Dim i As Integer
  
      Set collection1 = New Collection
      Set collection2 = New Collection
  
      For i = 1 To 10
          collection1.Add testObj
      Next i
  
      Set collection2 = collection1
      collection2.Remove 1
      Debug.Print collection1.Count
  End Sub
  </code></pre>
  
  <p><hr/>
  I tried the code below and it works but I'm looking to avoid filling both collections one by one if possible:</p>
  
  <pre><code>...
  For i = 1 To 10
      collection1.Add testObj
      collection2.Add testObj
  Next i
  ...
  </code></pre>
  
  <p>The reason I'm not so keen on this option is because ultimately I intend to use multiple collections, manipulating them and taking copies at various points so I would end up with lots of for loops in my code, rather than just one.</p>