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

Above pseudo code would represent and approaqch

--
Regards,
Tom Ogilvy



wrote in message
oups.com...
any hints or examples tom

regards

john