sStr = ""

for i = 0 to listbox1.Listcount - 1
if listbox1.Selected(i) then
sStr = sStr & listbox1.List(i) & chr(10)
end if
Next

Not sure what you mean by a list in another cell.

Are you using listboxes from the control toolbox toolbar?

--
Regards,
Tom Ogilvy

" wrote in message
...
I have mad made a bunch of pull down menus where you can
select as many things as you want by pressing the ctrl
key. Is there a way to pull whatever the user has
selected, lets say three options, and generate those
answers as a list in another cell? It's a type of survey
and I want to be able to generate a table that lists all
the options selected for each question. Thanks