How about just making sure it's visible:

Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
me.pictures("Picture 8").visible = true
With Range("D3")
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

I bet you don't even notice a flicker--but if you do, you could loop through all
the pictures and hide them if they aren't picture 8.

for each opic in me.pictures
if opic.name = "Picture 8" then
'do nothing
else
opic.visible = false
end if
next opic

This would replace the "Me.Pictures.Visible = False" line.

Danny wrote:

Hi All

I am trying to manipulate some images in an Excel spreasheet using the
following code:

Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("D3")
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

From the following web page:

http://www.mcgimpsey.com/excel/lookuppics.html

My problem is this code has all images set to visible = False.... I need 1
image visible all the time.

Any ideas on how I can make 1 picture visible all the time

I have 7 Pictures (Picture 1 to 7) that are run by the above code, picture 8
needs to be visible all the time.

Any help appreciated

Regards

Danny

--

Dave Peterson