VBA - adding by value to collection

[Shads]

I want create some objects of a user-defined class (clsDataSet) and put them into a collection. I.e. something like this:

    Dim col As Range
    Dim allDataPoints As New Collection

    For Each col In RangeIn.Columns
        Dim Series As New clsDataSet
        Series.Initialise (col)
        allDataPoints.Add Series
    Next col

Where clsDataSet.Initialise(ByVal RangeIn as Range) is a function that does various operations to fill the member variables of clsDataSet. The problem is that the objects are added to the collection by reference and so in each loop, every entry in the collection is changed as Series.Initialise() is called. Is there any way of getting round this or adding the objects by value?

 

[RoryA]

Use a new object instead:

        Dim Series As clsDataSet
    For Each col In RangeIn.Columns
       Set Series = New clsDataSet
        Series.Initialise col
        allDataPoints.Add Series
    Next col

 

[Shads]

Spectacular. Thanks