Please Explain Two Lines of Code

[ca1358]

Could you please explain the two lines of code?


Private Source as Range

..AddItem Source.Cells(index, 2)
..List(.ListCount) -1, a) = Source.cells(index, 3)


Thank you!
--
ca1358