Macro to find bold cells and add to combo box

Hi guys, my code would need to look in column B from row 5 for cells that have bold text and each cell value would become an option in the combo box list from the user form.

here's my code as I tried to adapt but if I don't specify a limit it will crash even if the column is not formatted as bold.

'Sets the list for Select Category combobox:
    Dim Search As Range
    For Each Search In Range("B5:B19")
        If Search.Font.Bold = True Then
            CategoryList.AddItem Search.Value
        End If
    Next

I tried it with find, findnext but still can't do it.
Thank you in advance