Macro muy larga

Hola:
Tengo una macro que me abre distintos libros y me los actualiza uno
a uno. Le tengo puesta una mp3 al inicio de la macro, pero se
termina la canción y no ha terminado la macro.
Podría ponerle un par de mp3 mas y que al finalizar la macro me
cerrara también la canción que esté puesta en ese momento?

Sub MP3()
Dim Archivo As String
Archivo = "C:\Windows\Media\CaféQuijano.mp3"
UsarWinMedia "Play " & Archivo
End Sub

Sub DesActivateMP3()
Dim Archivo As String
Archivo = "C:\Windows\Media\CaféQuijano.mp3"
UsarWinMedia "stop " & Archivo
End Sub

Bueno, con esto, que es lo que tengo de momento, consigo que me
funcione la cancion mientras está actualizando un dia, pero cuando
tengo que actualizar varios dias atrasados, se para la cancion y no
ha terminado la macro, lo cual no me permite conocer en el momento
que ha terminado el trabajo la macro para poder comenzar con el
mio.

Gracias anticipadas.