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
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