Hi Ka
You can use the Double click event maybe ?
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveCell.Value = Me.ListBox1.Value
End Sub
--
Regards Ron De Bruin
http://www.rondebruin.nl
"ka" wrote in message ...
Hello,
how to drag and drop from a listbox to activecell with vba ?
Thanks,