Ronbo

Dim rNextCell as Range

'Find next open cell in column B
Set rNextCell = Sheet1.Range("B65536").End(xlUp).Offset(1,0)

'Write value
rNextCell.Value = Me.ListBox1.Value

If you have a multiselect listbox, see here
http://www.dicks-blog.com/archives/2...elect-listbox/

--
Dick Kusleika
MVP - Excel
Excel Blog - Daily Dose of Excel
www.dicks-blog.com

"Ronbo" wrote in message
...
I have created a userform with a list box. I have everything working fine
except the OK button. After highlighting the items on the list I want the
OK
button to find the next open cell in column B and transfer the highlighted
items. So what I need help with is the code for transferring items from
the
listbox to column B on the spreadsheet.

Any help is appreciated