Roger, I modified the code supplied by Joe Was to flash a jpg. Give it a try and see if it works for you.
<pre>
Sub Flashjpg()
'modified code from Joe Was
Dim myJPG As Object
Dim x As Integer
Dim fSpeed
'Make this picture flash!
Set myJPG = ActiveSheet.Pictures("picture 1")
Application.DisplayStatusBar = True
Application.StatusBar = "... Select Cell to Stop and Edit or Wait for Flashing to Stop! "
'Make the cell range flash fast: 0.01 to slow: 0.99
fSpeed = 0.2
'Make cell flash, this many times!
Do Until x = 35
'Run loop!
DoEvents
Start = Timer
Delay = Start + fSpeed
Do Until Timer > Delay
DoEvents
myJPG.Visible = False
Loop
Start = Timer
Delay = Start + fSpeed
Do Until Timer > Delay
DoEvents
myJPG.Visible = True
Loop
x = x + 1
Loop
Application.StatusBar = False
Application.DisplayStatusBar = Application.DisplayStatusBar
End Sub
</pre>