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

[m.zaeim]

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

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

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

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.