Private Sub Listbox1_Click()
rw = 1
cells(rw,1) = Listbox1.Value
for i = 1 to listbox1.Columncount -1
cells(rw,i + 1).Value = listbox1.list(Listbox1.ListIndex, i)
Next
End Sub
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.