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