Bom dia à todos.

Sou novato em "programação" e preciso, por favor, de ajuda.

Quero passar o mouse em cima de um Botão de Macro e, nesse momento, exibir uma forma (no meu caso, chamei aqui de "Elipse 40". Porém, quando eu retirar o mouse desse botão, gostaria que essa forma desaparecesse da tela. Não quero clicar em botão algum, apenas passar o mouse nele e aparecer a forma e, ao retirar o mouse, desaparecer a forma.

Utilizei o seguinte código rs Me desculpem se for muito ridículo o que fiz:

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If intShiftDown And intLeftButton > 0 Then
ActiveSheet.Shapes("Elipse 40").Visible = True

Else
ActiveSheet.Shapes("Elipse 40").Visible = False

End If

End Sub

Porém, com esse comando, ele apenas Exibi ou Oculta a forma. Não consigo Exibir e Ocultar ao passar/retirar o mouse.

Procurei dúvidas semelhantes no fórum e não encontrei. Espero não ter duplicado um assunto.

Obrigado!!!