Indexing in VBA .additem

[SamirBhowmik]

Can anyone help me with the below piece of code:

Private Sub UserForm_Initialize()

Dim mylist As Collection
Dim myrng As Range
Dim ws As Worksheet
Dim myval As Variant

Set ws = ThisWorkbook.Sheets("MDB")
Set myrng = ws.Range("A2", ws.Range("A2").End(xlDown))
Set mylist = New Collection

On Error Resume Next

For Each mycell In myrng.Cells
mylist.Add mycell.Value, CStr(mycell.Value)
Next mycell

On Error GoTo 0

For Each myval In mylist
Me.ListBox1.AddItem myval

Next myval
End Sub

This code populates my first listbox with unique items from column A from a table. I have couple of other listboxes where I want to refer to other columns and populate the unique values. I am a newbi in vba so any assistance with explanation will be really appreciated

 

[DanteAmor]

Maybe this will help you :

The Ultimate Guide To Collections in Excel VBA - Excel Macro Mastery

Collections are a very important part of VBA. If you have used the language for any length of time then you will have used Collections

excelmacromastery.com