The Count property of a Decision Support Objects (DSO) collection returns the number of items in the collection. This property does not apply to CustomProperties collections.
Integer
Read-only
Note All collections in the Decision Support Objects (DSO) object model are one-based. That is, the first item in the collection has an index of 1 and the last item has an index of Count.
Use the following code to return the number of cubes in an MDStores collection of cubes.
'Assume an object (dsoDB) of ClassType clsDatabase exists
Dim dsoCube As DSO.MDStore
Dim cubeCounter As Integer
For cubeCounter = 1 to dsoDB.MDStores.Count
Set dsoCube = dsoDB.MDStores(cubeCounter)
Debug.Print " Cube Name: " & dsoCube.Name
Next cubeCounter