With Me.ComboBox1 .BoundColumn = 2 Range("A1") = .Value End With 'или With Me.ComboBox1 Range("A1") = .List(.ListIndex, 1) End With