VBA syntax help needed!

[cedricthecat]

Hi folks

If I use the first code below, it works without issue.

If I change the line in red, then it gives an error.

In the first code, the password is a choice of the value in cell Q2 on sheet "Words" and the password "password". In the second it's a choice of the values of Q2 or Q3 - except this doesn't work and I'm not sure why!

All help appreciated!

Sub ShowWords()
ActiveWorkbook.Unprotect Password:="pass"
    Application.EnableEvents = False
      PassEntry.Show
        [COLOR=red]If strPass <> Sheets("Words").Range("Q2") And strPass <> "password" Then[/COLOR]
                MsgBox "Incorrect Password"
        ThisWorkbook.Activate
        Application.EnableEvents = True
    Else
        Sheets("Words").Visible = True
        ThisWorkbook.Activate
        Sheets("Words").Activate
 
    End If
        Application.EnableEvents = True
        Call SheetNames
End Sub

Non working:-

Sub ShowWords()
ActiveWorkbook.Unprotect Password:="pass"
    Application.EnableEvents = False
      PassEntry.Show
       [COLOR=red]If strPass <> Sheets("Words").Range("Q2") And strPass <> Sheets("Words").Range("Q3")Then[/COLOR]
                MsgBox "Incorrect Password"
        ThisWorkbook.Activate
        Application.EnableEvents = True
    Else
        Sheets("Words").Visible = True
        ThisWorkbook.Activate
        Sheets("Words").Activate
 
    End If
        Application.EnableEvents = True
        Call SheetNames
End Sub

 

[MrKowz]

What error does it give? Also, what is strPass? Where is it defined?

 

[cedricthecat]

Sorry, strPass is defined in a Userform

Even more sorry, the darned thing works now! It wasn't working at work, so I came home and posted for help and now it does!

Not sure what I got wrong before!