Help to modify as follows, each ComboBox I add, will pull the information I choose from the X Column of the worksheet.
Code
'SEARCH AND SHOW'
Dim mySheets, myControls, sht, uniqueList
Dim ncell As Long
Set mySheets = Sheets(Array("Planilha2"))
myControls = Array(ComboBox4) 'example: + ComboBox5 (column B), ComboBox6 (column C)...
i = LBound(myControls)
For Each sht In mySheets
With sht
myControls(i).List = Application.Unique(.Range("A1:A" & .Cells(.Rows.Count, "A").End(xlUp).Row))
i = i + 1
End With
Next
