double click option in listbox outputs to cell in excel 97 !

Hello,

First off... The solution has to work in excel 97 !

I am having a little trouble trying to figure this out.
I have been able to get a simple listbox, to get a range of data from
another worksheet in the same workbook, and it works just fine,
using this following code:

*********************************

Private Sub CommandButton1_Click()
Dim ListItems As Variant, i As Integer
With Me.ComboBox1
.Clear ' remove existing entries from the listbox
Application.ScreenUpdating = False
ListItems = Worksheets("data").Range("A2:A8").Value
Application.ScreenUpdating = True
ListItems = Application.WorksheetFunction.Transpose(ListItems)
' convert values to a vertical array
For i = 1 To UBound(ListItems)
.AddItem ListItems(i) ' populate the listbox
Next i
.ListIndex = -1 ' no items selected, set to 0 to select the first item
End With

*********************************

However, my issue where I'm stumped, is if I could double click on a
single option and it would output that same option to a specific cell in the
same worksheet as the listbox ?

Thank you VERY much in advance,

spyrule.