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
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