vba collection object
Sub TestCollection() ' Creation Dim myCol As New Collection ' Add items With myCol .Add "Something" .Add "Smth before", , 1 ' at first position myCol.Add "Blue", "color" .Add Item:=Date, Key:="Now" Debug.Print myCol.Count ' > 4 ' Get items (you can loop through Items collection) Debug.Print myCol(1) ' > Smth before Debug.Print myCol("color") ' > Blue Debug.Print .Item("Now") ' > 26/03/2021 ' Delete items .Remove (1) .Remove ("color") ' Clear Set myCol = New Collection End With End Sub
