Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count < 1 Then Exit Sub

If Intersect(Target, Range("KeyCells")) Is Nothing Then
Exit Sub
Else
On Error Resume Next
ActiveSheet.Shapes(Target.Address & "Final").Delete
End If

Sheets("SheetWithPictures").Shapes(Target.Value).C opy
Target.Offset(0, 1).Select
ActiveSheet.Paste
Selection.Name = Target.Address & "Final"
Selection.ShapeRange.ZOrder msoSendToBack
Target.Select

End Sub


HTH,
Bernie
MS Excel MVP


"Bradley Wolosz" wrote in message
...

Bernie,

Thanks for the help this works great,
By any chance would you know how to alter this code so i can place the
pictures on a sheet with a specific name
then call that sheet to cross referance the pictures



Bernie Deitrick;712531 Wrote:
Visit

http://www.contextures.on.ca/excelfiles.html#DataVal

and download ClipArtEvent.zip

for some examples of using pictures in a file.

HTH,
Bernie
MS Excel MVP




--
Bradley Wolosz