For i = LBound(arr) To UBound(arr) If arr(i, 2) <> "" Then .Item(arr(i, 2)) = 1 Next Me.cmbxManager.List = .Keys 'заполняем список менеджеров