ElseIf pword <> ThisWorkbook.Sheets("Passwords").Range("B:B").Value Then
This line of code is not allowed due to an incorrect attempt to compare values to a multicell range. Instead of this unhealthy condition, simply insert:
Another problem with the code. You do not allow the user to opt out of entering the password. Many after ten attempts would like to give up, and you do not allow him to do so. After the following line:
pword = InputBox("Please Enter Password")
insert at least:
If Len(pword) = 0 Then Exit Do
Artik
Reply With Quote
