Tengo un objeto1 que es un clip multimedia, como abrirlo con una macro

Tengo un InputBox que según el valor que tome tiene que abrir una macro con un Objeto que es un clip multimedia. Mp3

Por ejemplo si Input=1 tiene que abrir la macro1 que contiene el objeto1

si el input=2 lo mismo pero con el objeto2.

Lo que quiero saber es como hacer la macro para abrir el objeto puesto que si tengo la macro1 que empieza por Sub Macro1() cuando escribo lo siguiente me marca error.

Sub Macro1()

Private Sub Workbook_Open()

ActiveSheet.Shapes("Objeto1").Select

Selection.Verb Verb=xlPrimary

End Sub

Gracias.