If Sheets("constants").Cells(i, 6).Value = 1
Item1 = Sheets("constants").Cells(i, 4)
Item2 = Sheets("constants").Cells(i, 5)
UserForm2.ListBox1.AddItem Item1 ' add to column 1
UserForm2.ListBox1.List(Listbox1.Listcount-1,1) = Item2 ' add to column
2
End If
Next i

--
Regards,
Tom Ogilvy


CG Rosén wrote in message
...
Good day,

Is it possible to use the AddItem method to a 2-column ListBox?
My efforts has so far resulted in the code below but now I´am stuck.

Brgds

CG Rosén
-------------------------------------------------

For i = 2 To 50

If Sheets("constants").Cells(i, 6).Value = 1
Item1 = Sheets("constants").Cells(i, 4)
Item2 = Sheets("constants").Cells(i, 5)
UserForm2.ListBox1.AddItem Item1 ' add to column 1???
UserForm2.ListBox1.AddItem Item2 ' add to column 2???
End If
Next i