On Error GoTo -1

This resets the Err object and is equivalent to Err.Clear.

Disables enabled exception in the current procedure and resets it to Nothing.

   On Error GoTo -1 
End Sub