Olá, sou iniciante nesse processo de VBA e estou criando uma planilha, como formulário, para inclusão de dados.
Tenho quatro imagens na planilha e preciso que, quando os usuários passarem o mouse sobre a imagens, surja um texto informando o nome do item.

Cheguei a usar o código que segue, mas não abre de jeito nenhum. Coloquei no módulo do arquivo.

Const tempo As Integer = 1#
Private Sub Imagem1_MouseMove(ByVal Imagem As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim Rslt As Integer
Rslt = CreateObject("WScript.Shell").PopUp("INSERIR NOVO REGISTRO", tempo)
End Sub