Populate listbox

[eduzs]

How programmatically populate a single column listbox?
Thanks

[gmayor]

Is this a userform list box? With what do you want to populate it?

[eduzs]

Yes a userform VBA listbox. Thanks

[gmayor]

So what do you want to populate it with?

[eduzs]

Thanks, I found that:

To populate a two column listbox:

With UserForm.LB1
.ColumnCount = 2
.ColumnWidths = "6;6"
.AddItem "1"
.List(0, 0) = "Name1"
.List(0, 1) = "E-mail1"
.AddItem "2"
.List(1, 0) = "Name2"
.List(1, 1) = "E-mail2"
.ListIndex = 1 ' Sets the default value
End With

To retrieve: First Column: UserForm.LB1.Column(0, .LB1.ListIndex) Second column: UserForm.LB1.Column(1, .LB1.ListIndex)

To populate a single column listbox:

With UserForm.LB1
.AddItem "Name1"
.AddItem "Name2"
.ListIndex = 1
End with

To retrieve: UserForm.LB1.List(.LB1.ListIndex)