Change cell value based on clicking an image

[Microsoft]

Hello all,

I'd like to be able to do the following:

1. Insert an image
2. Click the image and have text change in another cell/sheet

For example, on sheet1 I have three images: a smiley face, a neutral face and a sad face. When I click the smiley face I'd like A1 in sheet2 to read "smiley" and when I click the other two images I'd like A1 on sheet2 to show neutral or sad (depending on which was clicked)

Cheers!

 

[Fluff]

What are the names of the images & which is happy, neutral & sad?

 

[Microsoft]

Well, the smiley faces example was just random for simplicity.

My images are actually NHL team logos. The first one is Anaheim Ducks. When I inserted the image I named it "ANAHEIM DUCKS". I'd then like to change cell A1 on sheet2 to read "ANAHEIM DUCKS" once the image is clicked.

 

[Fluff]

Ok, how about

Sub Microsoft()
   With ActiveSheet.Shapes(Application.Caller)
      Sheets("Sheet2").Range("A1").Value = .Name
   End With
End Sub

and assign this macro to each image.