Windows Media Player

Would someone explain why the following code creates a runtime error

Private Sub CommandButton1_Click()
Worksheets("Sheet2").Activate
Dim wmp7 As WindowsMediaPlayer
Set wmp7 = CreateObject("WMPlayer.OCX.7")
End Sub

The error is
-----------
Run-time error"-214467259(80004005)':
Automation error
Unspecified error

I could add the WMP on a worksheet mannually.

Thanks

Does this help any? (obviously position and size were arbitrary to testing)

Worksheets("Sheet3").Activate
On Error Resume Next
ActiveSheet.OLEObjects.Add(ClassType:="WMPlayer.OCX.7", Link:=False, _
        DisplayAsIcon:=False, Left:=336, Top:=91.5, Width:=287.25, Height:= _
        149.25).Select
End Sub

BTW - All I did was record the manual placement of the control