Sub Box_Click()
Dim sVal as String
Dim lbox as ListBox
Set lbox = ActiveSheet.ListBoxes(Application.Caller)
sVal = lbox.List(lbox.ListIndex)
ActiveCell.Value = sVal
lbox.Delete
End Sub


--
Regards,
Tom Ogilvy

"Brad K." wrote in message
...
Thanks all. I realized that despite what I thought, I was not correctly
putting the Click_Box macro into a general module.

One more question, how do I close or delete the Listbox once I have made
my
selection (other than clicking on a new cell).
Thanks,
Brad

"Tom Ogilvy" wrote:

I tested it before posting and it worked for me. Others seem to have
had
good luck. If you want to contact me via email and give me your email
address, I can send you a sample workbook.

--
Regards,
Tom Ogilvy

"Brad K." wrote in message
...
Tom,
A week or two back you responded to a question on how to program a
Listbox
into the system. I have tried everything to make this work but have
consistently gotten the message "The macro "...xls'!Box_Click' cannot
be
found." What am I doing wrong? The code you wrote is:

==================================================
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Me.ListBoxes.Delete
On Error GoTo 0

If Target.Column = 1 Then
With Worksheets(3).Shapes.AddFormControl(xlListBox, 100, _
ActiveCell.Top, 100, 150)
.Name = "Listbox1"
.ControlFormat.ListFillRange = "Sheet2!a1:a18"

End With
Me.ListBoxes("Listbox1").OnAction = "Box_Click"
End If

End Sub

In a general module (no the module associated with the sheet) put in
this
code


Sub Box_Click()
Set lbox = ActiveSheet.ListBoxes(Application.Caller)
sVal = lbox.List(lbox.ListIndex)
ActiveCell.Value = sVal
End Sub
================================================== =

Thanks for any help you can give.
Brad K.