Para Herandez, Roberto Cuadro de dialogo

FiestaHola Amigo, sabes probe tu codigo, pero envia un error de copilacion

End If sinbloque If

inserte las lineas bien, pero sale ese error, y aparte no deja cerrar la
hoja ni excel, podrias apoyarme con su macro si algo esta mal o hago algo
mal ah y si borro End if, no me deja cerrarlo, y si no lo borro me envia el
error y pone en amarrillo
Private Sub Workbook_BeforeClose(Cancel As Boolean)
saludos..

Private Sub Workbook_BeforeClose(Cancel As Boolean)

If Sheets("Hoja1").Range("A1") = "" Then
MsgBox "No puede salir del sistema aún..." & Chr(13) & "Debe llenar el
campo Nombre de Usuario.", vbCritical, "Administrador"
Cancel = True
End If

End Sub