Prezados amigos, como estão?

Não domino o VBA e gostaria de contar com o auxílio de vocês para solucionar uma questão que a mim foi imposta.

Quando eu passar o mouse sobre uma determinada célula uma caixa de texto deve aparecer com a informação de um cálculo que estou fazendo.

A situação problema é justamente o "aparecer" e "desaparecer" da caixa de texto. Não possuo conhecimento para desenvolver algo do tipo. O máximo que consegui foi exibir, porém como condicional, utilizando valores específicos e não pelo movimento do mouse na célula em questão.

Segue o código:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim cel As integer

cel = Range("A1").Value

Select Case cel

Case 1

ActiveSheet.Shapes("Rect").Visible = True

Case 2

ActiveSheet.Shapes("Rect").Visible = False

End Select

End Sub

Conto com auxílio de vocês.

Atenciosamente,
Lucas