Macro assigned to picture with hyperlink does not work

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