Macro que se ejecute con dos o más usuarios, realizando una verificación previa.

Elaboré una pequeña macro que al abrirse el libro en forma
automática desde ThisWorkbook ejecute la macro "verificación" que
valida a uno de los usuarios, comparando con el usuario de la PC; si uno de los
usuarios es correcto ejecuta la macro "copiar", de no ser así cierra
el libro o podría ejecutar otra macro.
El problema es en la
macro verificación, cuando ninguno de los usuarios es correcto no ejecuta
cerrar libro; y cuando el segundo
usuario es correcto igual ejecuta cerrar libro; no se donde hice mal la macro.
Muchas gracias por las soluciones que me pudieran brindar.
Private Sub
Workbook_Open()
Call
verificación
End Sub
____________________________________
Sub
verificación()
On Error
Resume Next
'deshabilitamos
botón cancelar del msgbox
Application.EnableCancelKey
= xlDisabled
Usuario = UCase(Application.UserName)
If Usuario = "ARMAGEDON" Then
MsgBox "Bienvenido"
& " " & Usuario
Call copiar
Else
If Usuario =
"RIKOS" Then
MsgBox
"Bienvenido" & " " & Usuario
Call copiar
End If
End If
Exit Sub
MsgBox "HASTA AQUÍ LLEGASTE"
ActiveWorkbook.Close
End Sub
______________________________________________
Sub
copiar()
Sheets("Hoja3").Select
Range("A1:D12").Select
Selection.Copy
Sheets("Hoja2").Select
Range("D1:G15").Select
ActiveSheet.Paste
End Sub