COMBOBOX UNIQUE dng EXCEL VBA

ini contoh coding untuk membuat list Combobox Unique dari Sheet Data
silahkan dikembangkan lagi
-----------------------------------------------------
Sub Combobox_Unique()
    Dim dataAwal As Range
    Dim DataValue As Variant
    Dim KoleksiData As New Collection
    Dim jlhData As Long
    Dim DataItem As Variant
   
    With ThisWorkbook.Worksheets("Data")
        Set dataAwal = .Range(.Range("b2"), .Range("b9000").End(xlUp))
    End With
    DataValue = dataAwal.Value

      On Error Resume Next
        For jlhData = 1 To UBound(DataValue)
        KoleksiData.Add DataValue(jlhData, 1), CStr(DataValue(jlhData, 1))
    Next jlhData
    On Error GoTo 0
    With ActiveSheet.OLEObjects("ComboBox1").Object
        .Clear
        For Each DataItem In KoleksiData
            .AddItem KoleksiData(DataItem)
        Next DataItem
    End With
End Sub

Download disini