Sub AccessCollection() Dim colNames As Collection Set colNames = New Collection colNames.Add "A", "A" colNames.Add "D", "Dan" colNames.Add "Al", "Alexis" colNames.Add "B", "Brendan" colNames.Add "S", "Sonia" colNames.Add "Su", "Sue" Debug.Print colNames(1) Debug.Print colNames.Item(1) End Sub