Get Unique list of cells in a Column for loading a Combobox

[ayrus]

Option Explicit

Sub test()
    Dim c As Range
    Dim s As String
    
    With CreateObject("system.collections.arraylist")
        For Each c In Sheets("sheet1").Columns("B").SpecialCells(xlCellTypeConstants)
            s = c.Value
            If Not .contains(s) Then .Add s
        Next
        .Sort
        ComboBox1.List = .toarray
    End With

End Sub

Hello Mana,
Many thanks for your prompt response, I am using following code, wondering if you can advise on that..

Dim myJointCodeRange As Range
Set myJointCodeRange = Application.Range("B:B")

Dim myRow As Range
Dim myVal As Variant

For Each myRow In myJointCodeRange.Cells

myVal = myRow.Value

If Not InStr(myVal, "/") = 0 Then
Me.cmbJointID.AddItem (myVal)
End If

Next