Sub Macro1()
Do
Sheets("Sheet1").Select
Range("A2").Select
Application.Wait Now() + TimeValue("0:00:05")
Sheets("Sheet2").Select
Range("A2").Select
Application.Wait Now() + TimeValue("0:00:05")
Sheets("Sheet3").Select
Range("A3").Select
Application.Wait Now() + TimeValue("0:00:05")
Sheets("Sheet4").Select
Range("B3").Select
'insert code here to play video (19 sec), video is on S:\test\abc.mp4
Application.Wait Now() + TimeValue("0:00:20")
Loop
End Sub
Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #2 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer
Bookmarks