sStr = ""

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

Your description sounds more like a combobox, however, since they drop down,
but in either case (combobox or listbox) you would just change the name to
match the combobox/listbox name; the code otherwise would be the same.


--
Regards,
Tom Ogilvy

" wrote in message
...
Yes I'm using listboxes. What I mean is that when the
user selects three options and I want those three options
to populate in one cell, if possible, say b17. if not in
three subsequent cells like b17-19.



-----Original Message-----
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


.