VBA test to check if a specific Button (Form Control) was clicked

[bellg]

I have a button (form control, not ActiveX). I renamed this button "butVA03". I also have 15 other buttons in my excel sheet, but I want a test to check if "butVA03" was the button that I clicked.

Is this possible? My suspicion is that I'm not defining "butVA03" correctly as a specific button, but I can't figure out how to do this. Thanks in advance.

Public Sub AllButtons()

If butVA03 = True Then
MsgBox ("True")
Else
MsgBox ("False")
End If

End Sub

 

[Veritan]

Have you used the Click event? One of the forms I use for myself has the following code in it:

Private Sub cmdSaveAdd_Click()
      [COLOR=#008000]'Insert code here.[/COLOR]
End Sub

 

[mikerickson]

Try

Sub AllButtons()
    If Application.Caller = "butVA03" Then
        MsgBox "true"
    Else
        MsgBox "False"
   End If
End Sub

Note that if that routine is called by calling the Macro or from the VBEditor, Application.Caller will be a CVErr value and it will debug.

https://msdn.microsoft.com/en-us/library/office/ff193687.aspx

 

[bellg]

Thanks Mike! That works beautifully.

Quick question on your comment "if that routine is called by the calling macro". I'm not understanding when it will error out as the code below works for me. Do you have an example of your aforementioned warning?

Public Sub specsVA03()
Call AllButtons
End Sub

Public Sub AllButtons()


    If Application.Caller = "butVA03" Then
        MsgBox "true"
    Else
        MsgBox "False"
   End If


End Sub

 

[mikerickson]

It will error when Application.Caller is not a string. If you read the link, it will explain what kinds of values Application.Caller returns under different situations.

I should note that Application.Caller is determined by how VBA is entered. In your testing, if specsVA003 was called from a Button (or other forms control) then there would be no error.