codice:
'attivazione trappola errori
On Error Resume Next

'codice che può generare errori...
'...

'controllo errore
If Err.Number <> 0 Then
    Debug.Print "Errore n.  : " & Err.Number
    Debug.Print "Descrizione: " & Err.Description
End If

'disattivo trappola errori
On Error Goto 0