[Iska]

Что значит «считать»? И код покажите.

[Vandheer]

Цитата Iska:
Что значит «считать»? »
вывести значение переменой. К примеру первого a.item(1)

И код покажите.

ну к примеру:

Код:

dim a as new collection
a.add (range(cells(1,1),cells(2,1)))

[Iska]

Vandheer, попробуйте использовать словарь вместо коллекции:

Код:

Option Explicit

Sub Sample()
    Dim objDictionary As Variant
    
    Set objDictionary = CreateObject("Scripting.Dictionary")
    
    objDictionary.Add 1, Range(Cells(1, 1), Cells(2, 1))
    
    Debug.Print objDictionary.Item(1).Item(1).Value
    Debug.Print objDictionary.Item(1).Item(2).Value
    
    objDictionary.RemoveAll
    
    Set objDictionary = Nothing
End Sub

Можно и раннее связывание использовать.

А какую глобальную задачу Вы решаете таким образом?