runtime error 6..

[paran]

hi, while entering the code i get error "runtime error 6.., pls help as I'm new to vba

Private Sub Label8_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim MyPass As Long
MyPass = InputBox("Enter Developer Password", "Developer Setting")
If MyPass = "" Then GoTo WrongDPass
If MyPass = CStr(Sheets("in moves").Range("B101")) Then
Application.Visible = True
Unload Me
Else
MsgBox ("Incorrect Password")
End If
WrongDPass:
End Sub

 

[paran]

As I said the code is fine. If you’re seeing that message, then the user ID and/or password you entered do not match.

Sorry dear , i got it
Now every thing is fine, but i have coded this workbook. Window(1).visible =false, in this case my password is not acepting since its showing object required error
We want at open the userform should show, macro to run for password access and no exel sheets should be visible and other excek file shoukd work upon opening
Request Pls....