Table of contents
TOC
Collapse the table of content
Expand the table of content

Resume Statement

office 365 dev account|Last Updated: 6/12/2017
|
1 Contributor

Resumes execution after an error-handling routine is finished.

Syntax

Resume [ 0 ]

ResumeNextResumeline The Resume statement syntax can have any of the following forms:

StatementDescription
ResumeIf the error occurred in the same procedure as the error handler, execution resumes with the statement that caused the error. If the error occurred in a called procedure, execution resumes at thestatement that last called out of the procedure containing the error-handling routine.
ResumeNextIf the error occurred in the same procedure as the error handler, execution resumes with the statement immediately following the statement that caused the error. If the error occurred in a called procedure, execution resumes with the statement immediately following the statement that last called out of the procedure containing the error-handling routine (or On Error Resume Next statement).
ResumelineExecution resumes at line specified in the required lineargument. The line argument is aline label orline number and must be in the same procedure as the error handler.

Remarks If you use a Resume statement anywhere except in an error-handling routine, an error occurs.

Example

This example uses the Resume statement to end error handling in a procedure, and then resume execution with the statement that caused the error. Error number 55 is generated to illustrate using the Resume statement.

Sub ResumeStatementDemo() 
 On Error GoTo ErrorHandler ' Enable error-handling routine. 
 Open "TESTFILE" For Output As #1 ' Open file for output. 
 Kill "TESTFILE" ' Attempt to delete open file. 
 Exit Sub ' Exit Sub to avoid error handler. 
ErrorHandler: ' Error-handling routine. 
 Select Case Err.Number ' Evaluate error number. 
 Case 55 ' "File already open" error. 
 Close #1 ' Close open file. 
 Case Else 
 ' Handle other situations here.... 
 End Select 
 Resume ' Resume execution at same line 
 ' that caused the error. 
End Sub
© 2017 Microsoft