Add values in multicolumn list box.

Hi friends,

I have attached a Excel file. Here, I want to add values of item selected in combo boxes placed in column E and Column F (sheet1) to the Listbox1 placed on Userform1.

Thanks in advance.

Try this:-

Private Sub CommandButton1_Click()
Me.ListBox1.ColumnCount = 2
With ActiveSheet.Shapes("Drop Down 5").OLEFormat.Object
    Me.ListBox1.AddItem .List(.ListIndex)
End With
With ActiveSheet.Shapes("Drop Down 6").OLEFormat.Object
    Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = .List(.ListIndex)
End With
End Sub