Can't select ComboBox item (VBA)

[simurq]

That says it all! The combobox itself works OK but when I try to select ANY item from the drop-down list, I cannot. I know that the "Drop-Button-Click" event triggers the "Clear" method twice (upon opening and closing the list) but WHY it clears the selected item and how it can be solved remains vague to me.

Can you please help with this?

Private Sub deptRwy_DropButt*******()
    Dim FoundCell As Range, LastCell As Range
    Dim i As Long, j As Long, maxNo As Long
    Dim SearchCell As String, FirstAddr As String
    Dim aRwy() As Variant
        
    SearchCell = Range("D7").Value
    
    'Count total found cells in the range
    maxNo = WorksheetFunction.CountIf(Worksheets("Rwy").Range("A:A"), SearchCell)
    
    On Error Resume Next
    deptRwy.Clear
    
    With Worksheets("Rwy").Range("A:A")
        Set LastCell = .Cells(.Cells.Count)
        Set FoundCell = .Find(What:=SearchCell, After:=LastCell)
        ReDim Preserve aRwy(maxNo, 6)
    End With
            
    If Not FoundCell Is Nothing Then
        FirstAddr = FoundCell.Address
    End If
    
    For i = 0 To UBound(aRwy)
        If FoundCell Is Nothing Then
            Exit For
        Else
            For j = 1 To 7
                aRwy(i, j - 1) = FoundCell.Offset(, j)
            Next j
            Set FoundCell = Worksheets("Rwy").Columns(1).FindNext(After:=FoundCell)
            If FoundCell.Address = FirstAddr Then
                Exit For
            End If
        End If
    Next i

    For i = 0 To UBound(aRwy) - 1
        'Populate combobox with runway ID and magnetic heading in brackets
        deptRwy.AddItem aRwy(i, 0) & " (" & Round(aRwy(i, 4), 0) & "°)"
    Next i
End Sub

Thanks a lot in advance!!!