I have played a little with the McGimpsey suggestion for inserting a picture
into a cell. The below code allows a picture to locate itself into the top
corner of cell AH33. The pic width and column width fits the picture into the
cell.

It would be better if the picture zoomed to fit the cell rather than me
setting limits. Suggestions???

Secondly, this code requires the picture to be placed into the document
itself. With hundred of pictures the file size is excessive.
I want to hold all the photos in a remote directory and link to them. How do
I do that????


Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("AH33")
For Each oPic In Me.Pictures
If oPic.Name = .Text Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
oPic.Width = .ColumnWidth * 90
oPic.Height = .RowHeight * 13
Exit For
End If
Next oPic
End With
End Sub