Hi,

I am having a problem with this code from http://www.mcgimpsey.com/excel/lookuppics.html, where if the workbook is shared an error occurs and won't show the picture up. Can anyone help me modify the code? Thanks in advanced.

Private Sub Worksheet_Calculate()
Dim oPic As Picture


Me.Pictures.Visible = False
With Range("B15")
For Each oPic In Me.Pictures
If oPic.Name = .Text Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
Exit For
End If
Next oPic
End With

End Sub