oggetto Err

[viviana75]

qualcono puo darmi un esempio, su come farsi restituire
che tipo di errore è avvenuto?
grazie

[tas]

'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