Start when open file

[MAX]

All I want is that is that when I open the file, the animation starts. I have
these codes:
This code is in the Workbook:
Private Sub Workbook_Open()
Sheets("Sheet1").Activate
Call StartDemo1
End Sub
Sub StartDemo1()
On Error Resume Next
Set OldCell = ActiveCell
ActiveSheet.Shapes("Picture 1").Select
For i = 0 To 360 Step 5
Wait (0.08)
Selection.ShapeRange.IncrementRotation 15
Selection.ShapeRange.Left = Selection.ShapeRange.Left + 10
Selection.ShapeRange.Top = Selection.ShapeRange.Top - 0.1
DoEvents
Next i

For i = 360 To 0 Step -10.5
Wait (0.1)
Selection.ShapeRange.IncrementRotation -15
Selection.ShapeRange.Left = Selection.ShapeRange.Left - 20
Selection.ShapeRange.Top = Selection.ShapeRange.Top + 0.1
DoEvents
Next i
Selection.ShapeRange.Top = 300
Selection.ShapeRange.Left = 42
OldCell.Select
End Sub

and I have this code in the Workbook Module:

Sub Wait(DelaySecs As Single)
Dim sngSec As Single
EndDelay = Timer + DelaySecs
Do While Timer < EndDelay
DoEvents
Loop
End Sub

Why I have to run from Macro to start the animation?

Just to tell you that the name of Sheet 1 is Demo1.

Thanks.

 

[ryguy7272]

Is your code in 'ThisWorkbook'? See this for info.:
http://www.ozgrid.com/VBA/auto-run-macros.htm

HTH,
Ryan---

 

[Barb Reinhardt]

If the code really is in the ThisWorkbook module, there are two other reasons
why this may not work:

1) The macros are not enabled when you open the workbook
2) Events are not enabled when you open your workbook.

Check those out and let us know what you find.

HTH,
Barb Reinhardt

 

[MAX]

When I open the file, it is giving me this:
Run-time error '9':
Subscript out of range.

 

[Gary''s Student]

Modify:
Sheets("Sheet1").Activate
replace "Sheet1"
with the name of the tab containing the picture.

 

[ryguy7272]

It has something to do with your sheet name:
http://www.mrexcel.com/archive/Errors/21047.html

Or, there is no data on the sheet...

Good luck,
Ryan---

 

[MAX]

Thank you very much, you solved my problem.

:
at

Modify:
Sheets("Sheet1").Activate
replace "Sheet1"
with the name of the tab containing the picture.