Índice

Solución 6.7 Administrar los errores

1. Gestionar simplemente los errores

Sub GestionErrorSimple()  
  On Error GoTo Salida_Error  
  Workbooks("Libro N2.xlsx").Activate  
Salida_Error:  
End Sub

2. Gestionar los errores con un mensaje

Sub GestionarErrorNumMensaje ()  
  On Error GoTo Salida_Error  
  Workbooks("Libro N2.xlsx").Activate  
Salida_Error :  
  If Err.Number = 9 Then  
    MsgBox "El libro N2.xlsx no está abierto"  
  Else  
   ...