On Error Goto 0 non reimposta il trapping degli errori

Question

Ho avuto l'impressione che la gestione degli errori sia stata ripristinata da On Error GoTo 0.

Quindi perché non sembra che lo On error resume next si registri nel modo seguente?

Sub GetAction() 
Dim WB As Workbook 
Set WB = ThisWorkbook 

On Error GoTo endbit: 
'raise an error 
Err.Raise 69 
Exit Sub 
endbit: 
On Error GoTo 0 '<<<reset error handling? 

On Error Resume Next 
WB.Sheets("x").Columns("D:T").AutoFit 
MsgBox "ignored error successfully and resumed next"  

End Sub 

Answer 1

è necessario utilizzare On Error GoTo -1oErr.Clear per ripristinare l'intercettazione degli errori.

Verificare this answer Ho inviato alcuni mesi fa per una spiegazione più dettagliata.