Clever way to connect multiple images to on-click macro - VAB Excel

I have asked this question before, but admittedly in a terrible way, so I am asking this again. So here I am once more.

I am making a program in VBA Excel - or better, combining a certain worksheet with actions and parts of code to make something that works like a stand-alone program. Part of it involves the binding of a number of images (tens of them) to a certain macro, on click.

I have created the said images through the "Developer"->"Design Mode" button. The images are named in the fashion: Image1, Image2, Image3... etc. What I want is, if, for example, I press Image1, the subroutine Action(1), is called. If I press Image100, I want the subroutine Action(100) to be called. Therefore, I want to call the Action Subroutine passing a value according to which image is clicked, in the example I gave you, according to its name.

With a quick search, the first way I found out to make this work was the one below:

Sub Image1_Click()
     Call Action(1)
End Sub

That was for a click on Image1. For a click on Image100, that would be:

Sub Image100_Click()
     Call Action(100)
End Sub  

The downside of using solely this way is obvious: I would need to create as many on-click handlers as the images I have, even though the same routine is called every time and all that matters to get the value to be passed is the image name.

So, given the obvious order of my logic and of what I want to achieve, I would like you to provide me with a more clever way to create on-click events for all my images, without having to use so much redundant code and an obviously not-optimal logic.

NOTE:In case of confusion, the Action Subroutine IS the same for all images. Only the value passed changes.

Answer

You can use the Application.Caller property and assign the generic macro to all pictures and then pass the picture's ID as the argument -

Sub genericpicture_click()

Dim pic As String
pic = Application.Caller
MsgBox (pic)

End Sub

Here is an example using cases:

  ' Procedure to display which button was pressed.
      Sub WhichButton()

         ' Assign the calling object to a variable.
         ButtonName = Application.Caller

         ' Display the name of the button that was clicked.
         Select Case ButtonName

            ' NOTE: When you type the name of the button, note that
            ' Visual Basic is case and space sensitive when comparing                                                
            ' strings. For example, "Button 6" and "button6" are not the 
            ' same.
            Case "Button 6"
            MsgBox Application.Caller & "  was Clicked"

            Case "Button 7"
            MsgBox Application.Caller & " was clicked."

            Case "Button 8"
            MsgBox Application.Caller & " was clicked."

         End Select

      End Sub