simplest VBA code to exit a sub using On Error?

**mikeburg** · 10-16-2007, 11:34 AM

What is the simplest VBA code to exit a sub using On Error?

Thanks, mikeburg

**royUK** · 10-16-2007, 11:46 AM

Do uou mean like this

Option Explicit

Sub test()

   On Error GoTo test_Error

    'Your code

   On Error GoTo 0
   Exit Sub

test_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure test of Module Module1"
End Sub

**Leith Ross** · 10-16-2007, 11:49 AM

Hello Mikeburg,

The easiest thing to do is jump to a line label at the end of your code. Place the line label before the End Sub statement.

Private Sub ErrTest()
  On Error GoTo Fault
    N = 1/0

  ' The line label must always start in column 1, and end with a colon (:)

Fault:
  If Err.Number <> 0 Then
     MsgBox Err.Description
  End If
End Sub

Sincerely,
Leith Ross