Run macro only if user name matches criteria

[mdd16]

Hello

I have a code that should run the macro only if the user name is same as defined criteria.. but I don't get the desired result.. even when the user name is matching criteria it gives message box as if the name isn't matching... can someone help please.

Sub CheckUserName()

If UCase$(Environ("UserName")) <> "requiredname" Then 'And UCase$(Environ("UserName")) <> "GBCAL" Then
        MsgBox "User doesn't match requirements. Command terminated."
    Else
        MsgBox "Macro can be now running.."
    End If
    
End Sub

 

[bebo021999]

Make sure the "requiredname" is in upper case!
"REQUIREDNAME"