Multiple Application.UserNames

[Guest]

I am trying to have an if statement with mulitiple user names.
The current code:
If Application.UserName <> "User1" Then
executes properly, but it only works for one user

I want to do something like this:
If Application.UserName <> ("User1" Or "User2" Or "User3") Then
This of course is incorrect and shows an error

 

[Norman Jones]

Hi Bob,

One way:

If Application.UserName <> "User1" _
And Application.UserName <> "User2" _
And Application.UserName <> "User3" Then

 

[Bob Phillips]

If Application.UserName <> "User1" And _
Application.UserName <> "User2" And _
Application.UserName <> "User3" Then


--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

 

[Dave Peterson]

if application.username = "User1" _
or application.username = "User2" _
or application.username = "User3" then
'it was one of these names
else
'it wasn't one of these names
end if


======
When you get lots of names to check, you may find Select Case easier to read:

Select Case Application.UserName
Case Is = "User1", "User2", "User3"
'do something for these names
Case Is = "User4", "User5", "User6"
'do something for these different names
Case Else
'do something for everyone else
End Select

 

[Guest]

Thank you all. Very helpful.

if application.username = "User1" _
or application.username = "User2" _
or application.username = "User3" then
'it was one of these names
else
'it wasn't one of these names
end if


======
When you get lots of names to check, you may find Select Case easier to read:

Select Case Application.UserName
Case Is = "User1", "User2", "User3"
'do something for these names
Case Is = "User4", "User5", "User6"
'do something for these different names
Case Else
'do something for everyone else
End Select