XL: Branching to Other Sections of Code with GoTo and Call

ID: Q109780

The information in this article applies to:

Microsoft Excel for Windows, versions 5.0, 5.0c
Microsoft Excel for the Macintosh, versions 5.0, 5.0a
Microsoft Excel for Windows NT, version 5.0
Microsoft Excel for Windows 95, versions 7.0, 7.0a
Microsoft Excel 97 for Windows
Microsoft Excel 98 Macintosh Edition

SUMMARY

In Microsoft Excel versions 5.0 and later, you can use the GoTo and Call statements to branch to other sections of a Microsoft Visual Basic for Applications procedure.

NOTE: In earlier versions of Microsoft Excel, you can do this with the GOTO() and RUN() functions.

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support professionals can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs. If you have limited programming experience, you may want to contact the Microsoft fee-based consulting line at (800) 936-5200. For more information about the support options available from Microsoft, please see the following page on the World Wide Web:

http://www.microsoft.com/support/supportnet/overview/overview.asp

GoTo

The GoTo statement jumps to and executes the instructions at the specific line label and continues executing until the end of the program is reached.

Call

The Call statement runs a procedure and then returns to the line immediately after the Call statement in the originating procedure. The Call statement can also pass arguments of any declared data type to the called procedure and can transfer control to a Sub procedure, Function procedure, dynamic link library (DLL) procedure, or Macintosh code resource procedure.

The following examples demonstrate how to use GoTo and Call.

Example 1: The Difference Between Call and GoTo

The following Visual Basic procedure demonstrates the difference between using the GoTo statement and the Call statement.


  Sub One()
       MsgBox ("One()")       ' Displays message box.

       ' Sends control to Line10 below.
       ' The GoTo Line10 statement directs the program to branch to the
       ' line labeled "Line10:", the message box "unexecuted code" is
       ' skipped.
       GoTo Line10

       ' This message box is not displayed.
       MsgBox ("unexecuted code")

Line10:


       ' Displays message box.
       MsgBox ("Line10 of One()")

       ' The "Call Two()" line executes the subroutine defined as "Two()",
       ' sends a message box indicating that the subprocedure is executing,
       ' then returns to Sub One executing the line immediately after the


       ' Call statement.
       ' Call made to Sub procedure named two()
       Call Two

       ' Message box displayed.
       MsgBox ("back to One(); returning from Two()")

   End Sub

   Sub Two()
       ' Message box displayed.
       MsgBox ("Two()")
   End Sub

NOTE: The sample code above does not pass any arguments.

Example 2: An Alternative to the Call Statement

The following Visual Basic code makes a call to a another Sub procedure without using the Call statement.


   Sub One()
       MsgBox ("One()")              ' Message box displayed.
       two                           ' Call made to Sub named two().
       MsgBox ("return from Two()")  ' Message box displayed.
   End Sub

   Sub Two()
       MsgBox ("Two()")              ' Message box displayed.
   End Sub

Example 3: Using GoTo for Conditional Branching

The following code shows how you can combine the If...Then...Else statement with the GoTo statement to provide more branching options or to create the ability to return to a specific location after the GoTo statement is executed.


  Sub GetInput()

       Dim number as Integer ' Used for input variable.

       ' User input requested. Val() to turn input text into a number.
       number = Val(InputBox("Enter a 1 or a 2."))

       ' Condition that is evaluated based on user input.
       If number = 1 Or number = 2 Then
           GoTo Line1
       Else
           GoTo Line2
       End If

Line1:


       MsgBox ("Great! You entered a " &amp; number &amp; ".")
       GoTo LastLine

Line2:


       MsgBox ("Sorry, you must enter a 1 or a 2.")

LastLine:


       MsgBox ("End of program.")
   End Sub

Additional query words: 5.00a 5.00c 7.00a XL98 XL97 XL7 XL5

Keywords : kbprg kbdta kbdtacode PgmOthr KbVBA
Version : MACINTOSH:5.0,5.0a,98; WINDOWS:5.0,5.0c,7.0,7.0a,97; winnt:5.0
Platform : MACINTOSH WINDOWS winnt
Issue type : kbhowto