Private Function CopyCollection(ByVal Source As Collection, ByRef Target As _
  Collection)
   Dim Counter As Long
        For Counter = 1 To Source.Count
            Target.Add Source.Item(Counter)
        Next
End Function

Gr??e Kenjiro