Run-time error '9': Subscript out of range در بعضی کامپیوتر ها

[m.zaeim]

سلام دوستان یه سوال داشتم ازخدمتتون..
چرا این کد در بعضی از سیستمها اجرا میشه و بعضی دیگه ارور میده:

[B]Private Sub Workbook_Open()[/B]
[B]Workbooks("book1").Windows(1).Visible = False[/B]
[B]UserForm1.Show[/B]
[B]End Sub[/B]

ممنون میشم راهنمایی بفرمایید.