Thank you Tom !
This works fine to add the filtered items to the a single column combo
box. But I need to fill the cbo with 3 columns (ID, foreign ID,
value). The ID (first column) will be used to filter the next cbo, but
I need to display a "human understandable" value in the cbo. I thought
about using "cbo.list" ... but I'm stuck. More help for me ??

Kinne


Dim rng As Range
For Each rng In Worksheets(WorksheetFiltered).Range(RangeFiltered) .Rows
If rng.EntireRow.Hidden = False Then
' magic code here
End If
Next rng
<<

Kinne