Using IF/ElseIF to Set VBA Variable

[rickincanada]

I'm struggling to Set a variable based on an if statement. What I want is to set the variable User = Environ("USERNAME") if the Environ("USERNAME") does not equal userB or userC. If the Environ("USERNAME") does equal userB or userC then I want User = userA. Here's what I have however I'm getting an "Else without If" error. Any help you can provide would be greatly appreciated!

Dim User As String

If Environ("USERNAME") = "userB" Then User = "userA"
If Environ("USERNAME") = "userC" Then User = "userA"
ElseIf Environ("USERNAME") <> "UserB" Or Environ("USERNAME") <> "userC" Then User = Environ("USERNAME")
End If

 

[VoG]

Try

Dim User As String
If Environ("USERNAME") = "userB" Or Environ("USERNAME") = "userC" Then
    User = "userA"
Else
    User = Environ("USERNAME")
End If

 

[rickincanada]

Thanks VoG...

One other question, as this is used on many different servers I can never be certain that case will always be correct on the "userB" and "UserC" so I'm wondering if I should be converting the case? In some cases it could be "USERC" or "UserC", etc, etc.

 

[VoG]

Try this

Dim User As String
If UCase(Environ("USERNAME")) = "USERB" Or UCase(Environ("USERNAME")) = "USERC" Then
    User = "userA"
Else
    User = Environ("USERNAME")
End If

 

[rickincanada]

Peter you are a good man! Thanks so much we're up and running!