assume the upper left corner of the list/range will be in Cell B9 on sheet
Data and the range will be surrounded by at least one blank column/row on
each side. The list is already built when the useform is shown. the listbox
is on a userform:

Private Sub Userform_Initialize()
with worksheets("Data")
set rng = .range("B9").CurrentRegion
End with
listbox1.RowSource = rng.Address(1,1,xlA1,True)
Listbox1.Columncount = 2
end Sub

--
Regards,
Tom Ogilvy

"Graham Whitehead" wrote:

Hi, i have a program which scans for data and then collects a list in two
columns. One column denoting a name and the adjescent column denoting the
number of occurances. The length of the list can vary quite dramatically.
My question is how to add this range into a list box at runtime. Can anyone
help? Thanks.