Any ideas how to amend this code

[Pauljj]

I have been lucky enough to have been given this code for me which works perfectly well for one use, I need to amend it to work for 2 users, i.e the code needs to work when only the 2 named users log on

If Environ("UserName") <> "John Smith" Then
MsgBox "Sorry, you can't run this macro."
Exit Sub
Else
' Your code goes here
End If


Any ideas ?

 

[Oorang]

If Environ("UserName") <> "John Smith" and Environ("UserName") <> "Jim Bob" Then
MsgBox "Sorry, you can't run this macro."
Exit Sub
Else
' Your code goes here
End If

 

[Pauljj]

This comes up with syntax error ???

 

[Norie]

Pauljj

Can we see your actual code?

What Oorang has posted should work as far as I can see.

 

[Pauljj]

This is not the final code, just a test, before I use it properly

Sub OptionButton5_Click()

if environ("username") <> "PAUL HAILES" and
If Environ("username") <> "WENDY BLAINE" Then

MsgBox "Wrong user"
Exit Sub
Else

MsgBox Application.UserName

End If


End Sub

 

[Norie]

Why do you have the If on 2 lines?

Sub OptionButton5_Click() 

If environ("username") <> "PAUL HAILES" And  Environ("username") <> "WENDY BLAINE" Then 

     MsgBox "Wrong user" 
     Exit Sub 
Else 

     MsgBox Application.UserName 

End If 

End Sub

 

[Pauljj]

...well I still get the same message, I have removed the 'IF' but still get a syntax error..

Sub OptionButton5_Click()

If environ("username") <> "PAUL HAILES" And
environ("username") <> "WENDY BLAINE" Then
MsgBox "Wrong user"
Exit Sub
Else

MsgBox Application.UserName

End If


End Sub

 

[Norie]

Again I'll ask why is the If on 2 lines?

In the posted code by Oorang and I it's on 1 line.