Dim rw as Long, i as long
rw = 24

for i = 0 to listbox1.listcount - 1
cells(rw,1) = listbox1.list(i)
rw = rw + 1
Next

--
Regards,
Tom Ogilvy


"TimO" wrote in message
...
Hello All,

I have created a userform where the user makes inputs
into a text box that populates a list box. There can be
multiple inputs into the list box. My question
is.....once I have multiple inputs into the list box, how
do I recognize each individual entry and transfer them to
my excel sheet? I can populate the listbox, but I am
stuck after that.

Thanks in advance.