Who called this method?

[ScottInTexas]

Is there a way to identify which method calls another. I have a method called from several others. I would like to know which caller it was. Application.Caller is not for this. I want to do something like this.

 Debug.Print "In write data method." & WhoCalledIt

Thanks,

 

[shg]

You can't access the call stack from VBA, but the calling routine can pass its name via an argument.

 

[ScottInTexas]

Oh well.

Thanks.

 

[shg]

Or you could create your on call stack with a public collection that every procedure pushes on entry and pops on exit.

 

[My Aswer Is This]

Not sure this is the same thing but:

If I click on a activex control to run a script. How can I get the name of the activex button I just clicked on?
I want the name not the caption.
Using Vba

Or you could create your on call stack with a public collection that every procedure pushes on entry and pops on exit.

 

[shg]

An ActiveX control runs its own click event. For a control on a worksheet, you can hard-code the control name in the event. For a control on a userform, maybe userform.activecontrol, but I've not used it.

 

[My Aswer Is This]

Would you care to tell me how to do this:
You said:
For a control on a worksheet, you can hard-code the control name in the event

I've tried something like this but it does not work

Dim ans as string
ans=Activecontrol.Name

An ActiveX control runs its own click event. For a control on a worksheet, you can hard-code the control name in the event. For a control on a userform, maybe userform.activecontrol, but I've not used it.

 

[shg]

On a worksheet:

Private Sub CommandButton1_Click()
  MsgBox "Button1 reporting for duty"
End Sub

On a userform:

Private Sub CommandButton1_Click()
  MsgBox ActiveControl.Name
End Sub

 

[My Aswer Is This]

I'm sorry but a user here last week wanted to do this:

When I click on Activex command button named "Blue" he wanted "Blue" entered into Range("A1")

When I click on Activex command button named "Yellow" I want "Yellow" entered into Range("A1")

That's why I need to know the name of the activex command button that was clicked.
He had like 20 of these command buttons and did not want to put a script in each command button.

So your saying we cannot get the name of the Activecontol if it's in a sheet like we can if it's on a UserForm?

 

[shg]

So far as I know, no.

Jaafar could probably hook something in API to find out.