Combobox AddItem med For Next

Hej

Jeg har en Combobox hvor jeg gerne vil have værdierne fra området B20 til B-end Add'et til min Combobox.

Dog skal det kun være hvis cellen er forskellig fra "".

Er der en der kan se hvad der er galt i nedenstående eller en anden løsning på problemstillingen?

Private Sub UserForm_Activate()
Dim c As Range

For Each c In Range("B20", Range("B20").End(xlDown)).Cells

    If Not ActiveCell.Value = "" Then
        cbbAnlaeg.AddItem ActiveCell.Value
               
    End If
   
Next
End Sub