Im trying to learn how to use collections

for this example i've but 4 digit numbers in the cells C2:F2.
at this point i just want to get the data into a collection and the
look at the items individually in a msg box

here is my code thus far.


Sub collection()

Dim COL1 As New collection
Dim FRST
Dim SCND
Dim THRD
Dim FRTH

Range("c2:F2").Select
For Each cell In Selection
COL1.Add (cell.Value)
Next cell

FRST = COL1.Item(1).Value

MsgBox (FRST)

End Sub

help i just don't get i

--
Message posted from http://www.ExcelForum.com