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

[m.zaeim]

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

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


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