How programmatically populate a single column listbox?


Thanks

__________________
Backup your original file before doing any modification.

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

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com

Yes a userform VBA listbox. Thanks

__________________
Backup your original file before doing any modification.

So what do you want to populate it with?

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com

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)

__________________
Backup your original file before doing any modification.