This worked for me:

Sub PlayIt()
Dim Mfile As Object
Set Mfile = Worksheets("Results").OLEObjects("Object 6928")
Mfile.Verb
End Sub

--

Vasant

"teepee" wrote in message
...

"Vasant Nanavati" wrote...
Dim Mfile As Object
Set Mfile = Sheet1.OLEObjects("Object 6928")

Hmm no luck

The whole subcommand for this button now reads

Private Sub CommandButton1_Click()
Dim Mfile As Object
Set Mfile = Results.OLEObjects("Object 6928")
MP.Open (Mfile)
End Sub

(results being the name of the sheet and media player being what opens it)
It says runtime error 424 object required