Olá, procuro uma solução para remover itens duplicados dentro de uma ComboBox encadeada.
Preciso retirar os valores duplicado somente da ComboBox3.

Private Sub ComboBox3_change()

If Me.ComboBox3.ListIndex <> -1 Then
Call CarregaSITE(Me.ComboBox3.List(Me.ComboBox3.ListIndex)) 
End If
End Sub

Private Sub UserForm_initialize()

Call CarregaOS

End Sub

Private Sub CarregaOS()

Dim linha As Long, coluna As Long
linha = 2
coluna = 1
Me.ComboBox3.Clear
Do While Not IsEmpty(Plan4.Cells(linha, coluna))
Me.ComboBox3.AddItem Plan4.Cells(linha, coluna).Value
linha = linha + 1
Loop
End Sub

Private Sub CarregaSITE(ByVal Os As String)

Dim linha As Long, colunaSITE As Long, colunaOS As Integer
linha = 2
colunaSITE = 6
colunaOS = 1
Me.ComboBox7.Clear
Do While Not IsEmpty(Plan4.Cells(linha, colunaSITE))
If Plan4.Cells(linha, colunaOS).Value = Os Then
Me.ComboBox7.AddItem Plan4.Cells(linha, colunaSITE).Value
End If
linha = linha + 1
Loop
End Sub