Multiselect Listbox

[Guest]

I have a listbox with with its properties set to mutliselect and is popupated
with "Apples, Oranges, Peaches, Grapes, Apricot and Guava.

When the user select say, Oranges and Grapes, I want these to be displayed
but do not know how to write the code. I have looked at previous postings
but the responses only dealt with showing the listindex value instead of the
actual description. Can someone help!

 

[Tom Ogilvy]

With Userform1
rw = 1
for i = 0 to .Listbox1.Listcount - 1
if .listbox1.Selected(i) then
cells(rw,1).Value = .listbox1.List(i)
rw = rw + 1
end if
Next
End with

 

[Guest]

Thank you very much Tom. Really appreciate your help.