Add items to Combobox with named range

[sharky12345]

I have a Combobox on a userform that I want to load from a named range, but with some criteria.

The range I need populated is A2 to the last used row, but only if the value in column B is "Family".

Possible?

 

[Fluff]

How about

Private Sub UserForm_Initialize()

    Dim Cl As Range
    
    For Each Cl In Range("Names")
        If Cl.Offset(, 1).Value = "Family" Then
            Me.Combobox1.AddItem Cl.Value
        End If
    Next Cl
        

End Sub

This assumes your named range is Names
& that your Combo is ComboBox1

 

[sharky12345]

Perfect!

Thanks Fluff....

 

[Fluff]

Glad to help & thanks for the feedback