Hi Guys, the code below was kindly posted by Michel Pierron...

It works fine, but I really wanted it to run in it own window
so the spreadsheet can be seen behind the avi...How do I adjust
the code to do this? can I pick the avi window size/position?

Thanks for any help....
ste

Private Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" (ByVal lpstrCommand As String _
, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long _
, ByVal hwndCallback As Long) As Long

Sub FullScreenAvi()
Const aviFile = "C:\Clock.avi" ' Modify as appropriate
Dim Cmd As String
Cmd = "play " & aviFile & " fullscreen "
mciSendString Cmd, 0&, 0, 0&
End Sub