Play video when opened VBA

[MM91]

Hi I am trying to play a video when worksheet is opened. I can get the video to open but then it gets an errors "expected object" i am trying to run it through windows media but is there a better way?

Thank you!!

Private Sub Workbook_Open()


Dim SplashScreenFL As String
Set SplashCreenFL = "G:\user\App\Splash Screen.gif"
SplashScreen.Url = SplashScreenFL
SplashScreen.Controls.Play

End Sub


Sub OpenUserform()

Set SpashScreen.Visible = False

StandardPartSearch.Show

End Sub