Sub AddToCollection()
Dim colNames As Collection
Set colNames = New Collection
colNames.Add "A", "B"
colNames.Add "C", "D"
colNames.Add "E", "F"
colNames.Add "G", "H"
colNames.Add "I", "J"
colNames.Add "K", "ZL"
End Sub