Get unique list from multiple comboboxes

[sharky12345]

Is there a way I can populate a Userform Combobox with unique selected values from other Comboboxes?

The source is Combobox1 through to Combobox6 and the results need to be loaded to Combobox7.

 

[Fluff]

How about

Private Sub CommandButton1_Click()
   Dim i As Long
   
   With CreateObject("scripting.dictionary")
      For i = 1 To 6
         .Item(Me.Controls("ComboBox" & i)) = Empty
      Next i
      Me.ComboBox7.List = .Keys
   End With
End Sub

 

[sharky12345]

Perfect - thanks Fluff!

 

[Fluff]

You're welcome & thanks for the feedback.