Detect which Picture clicked

[Andy Walker]

Hi All
I use the short Macro below to copy a thumnail picture to a cell on anther part of the worksheet but it is hard coded to "Picture 231"
how could I change the code to insert the name of any of my Array of thumnail Pictures. i.e. "Picture 234" etc on clicking that picture.

    ActiveSheet.Shapes.Range(Array("Picture 231")).Select
    Selection.Copy
    ActiveCell.Select
    ActiveSheet.Pictures.Paste.Select

Hope you can help, anyway thank you for reading.
Andy.

 

[p45cal]

Select all the pictures you want to behave that way, right-click and assign the macro blah to all of them in one shot.
This is the code blah:

Sub blah()
ActiveSheet.Shapes(Application.Caller).Copy
ActiveSheet.Pictures.Paste
End Sub

 

[Andy Walker]

Select all the pictures you want to behave that way, right-click and assign the macro blah to all of them in one shot.
This is the code blah:

Sub blah()
ActiveSheet.Shapes(Application.Caller).Copy
ActiveSheet.Pictures.Paste
End Sub

Many Thanks for your assistance.
All working fine now.
Andy....