Need help with shape appear & disappear

Hello all,

I am using Office 2016 and I am not a programmer. I can figure things out most of the time but this time I can't.

Here is what I'm trying to do. I have an excel macro enabled sheet with a label and a shape called Label1 and Shape1. I want Shape1 to be invisible until the user mouse's over Label1

Here is the code:

Option Explicit

Sub ShowShape()
Sheet1.Shapes("Shape1").Visible = msoCTrue
End Sub

Sub HideShape()
Sheet1.Shapes("Shape1").Visible = msoFalse
End Sub


Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ShowShape
End Sub

When I try to run it I get this error message. What am I missing?

Why do I want the shape to be invisible? I have another shape which is visible and I want Shape1 to be on top of it so when they mouse over the other shape, Shapo1 appears

Thanks for any help. I think I'm close but not there yet

Forgot the attachment, and the shape's actual name is RoundedRectangle1

Thank you, that works beautifully but your VBA looks the same as mine. What was I missing? I want to learn from my mistakes. Thanks again for the help!