Udfordring med "Range" når det kun består af en celle fra Excel

Hej Eksperter

I forbindelse med en række ComboBokse hvis lister er afhængige af hinanden, har jeg udfordringer med at få programmet til at virke når jeg forsøger at sætte et range der kun består af en celle. Burde man ikke kunne det?

Private Sub ComboBox2_Enter()
    Dim rng1 As Range
     
    If ComboBox1.Value = "" Then
        ComboBox2.Clear
    ElseIf ComboBox1.Value = Sheet2.Range("A2") Then
        Set rng1 = Sheet2.Range("B2:B3")
        Me.ComboBox2.List = rng1.Cells.Value.......

Ovenstående virker fint i helheden, men når jeg har behov for at Range("B2:B3") eksempelvis skulle være Range("B3") eller Range("B3:B3") så stopper programmet ved Me.ComboBox2.List. rng1.Cells.Value har fået værdien fra "B3" men det er som om at den ikke ser det som en Liste når der kun er en værdi.
Skriver jeg eks. Me.ComboBox.Value så kommer værdien ind og så har jeg istedet udfordringer med at få den slettet med ComboBoxX.Clear.