Loading a unique list of names from a range into a combobox
Hi! This worked too! Thank you!
Frank
On Sun, 24 May 2015 17:02:33 -0400, GS wrote:
Try this in the userform code window...
Option Explicit
Private Sub UserForm_Initialize()
LoadComboList
End Sub
Sub LoadComboList()
Dim n&, sNames$, vNames
Const lNames& = 14 '//names column index
vNames = ThisWorkbook.Sheets("QueryBuster").UsedRange
For n = LBound(vNames) To UBound(vNames)
If InStr(sNames, vNames(n, lNames)) = 0 Then
sNames = sNames & "," & vNames(n, lNames)
End If
Next 'n
Me.ComboBox1.List = Split(Mid(sNames, 2), ",")
End Sub
|