I assume you don't want to link it - but want to use the click event of the
listbox:

Private Sub Listbox1_Click()
Worksheets("Sheet2").range("Whereva").Value = listbox1.Value
End Sub

--
Regards,
Tom Ogilvy

"WiReLaD" wrote in message
...
Hello,
Could some nice person help me?

I need to know how to code vba listbox data.
when sheet1 opens listbox shows data from say A1: A999
user clicks data shown in listbox then on click data appears in
Sheet2.range
("Whereva")

there easy! :-(

Please anyone....

WiReLaD
Come on Tom - you helped me before...