Pessoal bom dia!

Inseri na minha planilha o seguinte código:

Declare PtrSafe Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Public Const MySoundsPath = "D:"

Sub Som()
    sndPlaySound32 MySoundsPath & "Som.wav", 0
End Sub

'Esta parte está em outra Sub

        If Cells(i, "AB").Value <> 0 Then
        Call Som
        End If

Está funcionando belezinha, porém percebo que o código meio que "espera" o áudio ser executado pra continuar rodando

Existe alguma forma do código mandar o áudio executar e continuar rodando sem esperar? E se precisar disparar novo áudio ele "sobrepor" ao anterior?

Obrigado