Hi Robbyn

Sub twolist()
Dim x As Integer

x = 1

UserForm1.ListBox1.Clear

While (Range("a" & x).Value < "")
UserForm1.ListBox1.AddItem Range("A" & x).Value & Range("b" &
x).Value
x = x + 1
Wend
UserForm1.Show

End Sub

will do exactly that - however, you lost the useful ability to set rowsource
(ie link back to the actual sheet).

Alternatively, insert an additional column which just concatenates the two
cells that you're interested in and set the rowsource to the new combined
column.

Regards

David




"Robbyn" wrote in message
...
David,

If I may ask a question here..

How would I populate a list box data using a single list of information
from 2 columns? 'Col1,Item1 & Col2, Item1'

Can it be done?