Código VBA erro 424 o objeto é obrigatório

Question

Preciso, numa planilha específica , que através de um inputBox ao se digitar uma palavra em caixa alta, seja comparada como o valor de uma determinada célula, Se a palavra digitada for exatamente igual a da célula comparada. Então preencher de verde e tocar  um áudio de aplausos, caso contrário, pintar a célula de vermelho e tocar áudio de resposta errada. A parte de colorir a célula está se efetivando, mas os áudios não tocam e aparece o erro acima. Desculpem-me sou iniciante em VBA. Alguém poderia me ajudar, sou professor de escola pública e é para uma atividade de soletrar. Gratos. Eis o código que estou tentando: 

Sub Rodarmusica()

    Resultado = InputBox("Você soletrou...", "Soletração")

    Range("h12") = Resultado

    If Range("h12").Value = Range("h14").Value Then

    Range("h12").Interior.Color = vbGreen

    Else

    Range("h12").Interior.Color = vbRed

    End If

    If Range("h12").Value = Range("h14").Value Then

    WindowsMediaPlayer2.URL = ActiveWorkbook.Path & "C:\Users\profnaldo\Documents\MACROS PESSOAIS XLS\aplausos_assobios7curto.mp3"

    Else

    WindowsMediaPlayer2.URL = ActiveWorkbook.Path & "C:\Users\profnaldo\Documents\MACROS PESSOAIS XLS\Resposta Errada   .mp3"

    End If

End Sub

Answer 1

Olá josinaldoluis, tudo bem?

Seja bem vindo a Comunidade da Microsoft!

Para obter maiores esclarecimentos sobre o seu questionamento, peço a gentileza de acessar o link abaixo que vai direcioná-lo ao MSDN, que é um fórum especialmente destinado para desenvolvedores e profissionais em TI.

:: MSDN ::

Para criar uma nova thread no fórum da MSDN, acesse: https://social.msdn.microsoft.com/Forums/pt-br/newthread.

Se houver outras dúvidas relacionadas aos produtos Microsoft, por favor, volte a postar. Estamos à disposição.

Caso essa informação tenha sido útil, marque-a como resposta.

Até mais!