Copy an image into a cell

THese are some instructions I was given a while back to insert a pic, based on a drop-down...
Assumption: Pictures are stored on Sheet2 and will be dynamically shown on Sheet1.

Select Sheet2 and turn off Grid Lines
• View...Uncheck: Grid Lines

1) For each picture to be displayed:
1a. Insert.Picture...(select picture and put it in the sheet).
1b. Select the range of cells that is under the picture.
1c. Name that range of cells, using the prefix "pic" followed by the dropdown list text:
Example for a picture of an Elephant:
Formulas.Name_Manager.New
...Name: picElephant
...Refers to: (this is whatever range you've selected under the elephant pic)

2) Build your data validation list on a cell in Sheet1 and pick one of the items.

3) Create a dynamic range name that refers to that cell:
• Formulas.Name_Manager.New
...Name: ShowMyPic
...RefersTo: =INDIRECT("pic"&Sheet1!$A$1)
or whatever cell you chose tha contains the dropdown list.

4) Copy the range of cells under one of the pictures from Sheet2
5) Select the display cell on Sheet1.
6) Home.Paste.Paste.As_Picture.Picture_Link
7) With the picture selected, type this in the formula bar, then press [Enter]:
=ShowMyPic

The picture will be replaced by the picture referred to by the dropdown list.

Each time you select a different item in the list, the associated picture will appear in the picture box and resize appropriately