Hyperlink to show picture

[asad]

Hello Guys,
I got the following code given to me on this forum to show pictures in a sheet.

Option Explicit

Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("B1")
For Each oPic In Me.Pictures
If oPic.Name = .Text Then
With Range("H1")
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
End With
Exit For
End If
Next oPic
End With
End Sub

This is wroking very good.

Now I want the picture to show only when mouse hovers on a particular cell. I will try to explain a bit more.
I will have few entries in different cells on a sheet. Each entry will have a corressponding picture on the sheet itself but it will not be visible if I use part of the code above.
Now is it possible for me to make a condition in VB code that will alllow picture to show when the user hovers the mouse over an entry?

Thanks
Asad

 

[asad]

.

 

[asad]

Any Help?????????????

 

[fdecaria]

I am keen to know answer as well.