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