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