Macro assigned to picture with hyperlink does not work

[efernandes67]

Hi,

Initially I had a macro assigned to a picture and the macro ran each time I pressed on the picture.
Now I added the following code to enable a tip when the mouse is over the picture but the macro does not run anymore :-(

Sub Shape_TIP()
    Dim sh As Shape
    
    ' Produtividade
    Set sh = ActiveSheet.Shapes("pict_Home")
    ActiveSheet.Hyperlinks.Add sh, "", "", ScreenTip:="Home"
end sub

What can I do to make the macro to run and to have a tip when the mouse is over the picture?

Regards,
Elio Fernandes

[efernandes67]

Solution found in this link: http://excelribbon.tips.net/T000724_..._an_Image.html