Identify which List Box was used

J

jjb

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,
 
J

joel

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 Su
 
D

Dave Peterson

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?
 
Top