reference image from another cell if statement

[Charlie987]

Hi,
I am trying to create an if statement that tests if a name is present and if so, inserts an image into a cell in that row. the image can be in a cell on that sheet (if that is the easiest way to do it).
so far i have:
Dim rng As Range
Set rng = ActiveSheet.Range("A3:A300")
For Each cell In rng.Cells
If InStr(1, cell, "John") > 0 And InStr(1, cell.Offset(0, 1), "Smith") Then
cell.Offset(0, 4).Value = "????????"
End If
Next
I am just not sure how to reference the image to use it.
Thanks

 

[davesexcel]

If you have the image for John Smith in a specific cell, for example M1.

range("M1").copy  cell.Offset(0, 4)

 

[Charlie987]

Thank you! I am coming up against the problem of getting the image into the cell to reference. I can get it inserted into the sheet, but cant find much information about how to get it into the cell. (Most of the tutorials talk about setting the properties to move with the cell but it still doesn't reference the image).
If anyone had any thoughts on how to insert the image into the cell for referencing or other ways to reference an image it would be great.
Thanks again!!

 

[davesexcel]

Leila has a great example on working with images, it would give an idea of how to place images based on a cell value