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,

 

[My Aswer Is This]

OK Thanks. I spent 1 hour last night looking for an answer.

So far as I know, no.

Jaafar could probably hook something in API to find out.

 

[Fluff]

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?

Whilst maybe not quite what your user was looking for, this would work.

Private Sub Blue_Click()
Call ColourCells("Blue")
End Sub


Private Sub Red_Click()
Call ColourCells("Red")
End Sub

And then in a standard module

Sub ColourCells(Clr As String)
    Dim ClrInd As Long
    Select Case Clr
        Case "Blue"
            ClrInd = 8
        Case "Red"
            ClrInd = 3
    End Select
    Range("A1").Interior.ColorIndex = ClrInd
End Sub

 

[My Aswer Is This]

Thanks for your input. Yes I knew there we other ways. Strange there is no way of getting active control name.

Whilst maybe not quite what your user was looking for, this would work.

Private Sub Blue_Click()
Call ColourCells("Blue")
End Sub


Private Sub Red_Click()
Call ColourCells("Red")
End Sub

And then in a standard module

Sub ColourCells(Clr As String)
    Dim ClrInd As Long
    Select Case Clr
        Case "Blue"
            ClrInd = 8
        Case "Red"
            ClrInd = 3
    End Select
    Range("A1").Interior.ColorIndex = ClrInd
End Sub

 

[Fluff]

I believe it can be done using a class module, but never tried it myself. (I tend to prefer Form controls or shapes)
https://www.ozgrid.com/forum/forum/...ba-return-name-of-activex-button-just-clicked

 

[shg]

I've used classes for other controls (like to validate inputs), but it didn't occur to me to use a class. Nice work.