Hi folks,

Simple list spreadsheet, column headings, etc... Have a combo on a form I'd
like to populate with unique values from a column in the range.
Current code works fine (obviously selecting cells first), but no way to
only show unique values? Any idea how can I eliminate them?

' start of code
Dim item As Range

For Each item In Selection
cmbDept.AddItem item
Next
' end of code

Any ideas?

TIA,
Piers