I use the same code connected to several List Boxes. I need the code to
determine which List Box was used to trigger the code. Not sure how I capture
that ListBox name.
Thanks,

Private Sub ListBox1_Click()

Set bx = ActiveSheet.OLEObjects("Listbox1")
Call CommonBox(bx)
End Sub
Private Sub ListBox2_Click()

Set bx = ActiveSheet.OLEObjects("Listbox2")
Call CommonBox(bx)
End Sub

Sub CommonBox(bx)

'enter code here
End Sub


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=148748

If you used listboxes from the control toolbox toolbar, then you should know
what one triggered the code.

If you used listboxes from the Forms toolbar, then you could use:

Dim LB As ListBox
Set LB = ActiveSheet.ListBoxes(Application.Caller)
MsgBox LB.Name & vbLf & LB.TopLeftCell.Address

These are listboxes placed on the worksheet, right?

jjb wrote:

I use the same code connected to several List Boxes. I need the code to
determine which List Box was used to trigger the code. Not sure how I capture
that ListBox name.
Thanks,

--

Dave Peterson