Remove element with the key
Sub AccessCollection()
Dim colNames As Collection
Set colNames = New Collection
colNames.Add "A", "A"
colNames.Add "Dan", "Dan"
colNames.Add "Al", "Ale"
colNames.Add "B", "Bre"
colNames.Add "S", "So"
colNames.Add "Sue", "Su"
colNames.Remove "Sonia"
Debug.Print colNames(1)
Debug.Print colNames.Item(1)
Debug.Print colNames("Alexis")
End Sub
Related examples in the same category