Control Block Statement Error Messages (124887)

SYMPTOMS

In Microsoft Excel, when you attempt to execute a Microsoft Visual Basic for Applications macro or procedure, you may receive one of the following error messages:

For without Next
Block If without End If
Do without Loop
While without Wend
Select Case without End Select

Microsoft Excel will also highlight part of your code in an attempt to indicate where the syntax error occurred. In some cases, the highlighted code may not match the syntax displayed in the error message.

CAUSE

The most likely cause for these error messages is that your code contains control block statements that are incorrectly nested. That is, a statement that begins a control block is used without the corresponding statement that ends the control block.

However, another less obvious situation may occur. That situation occurs when one block, for example block A, begins inside of another block, for example block B, but block A terminates outside of block B.

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers 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 requirements. Visual Basic supports the following five types of control block statements:

   For...Next
   Do While...Loop or Do...While Loop
   If...Else...End If
   While...Wend
   Select Case...End Select

In the above list of block types, the word or words preceding the ellipsis (...) begins a block, which is typically followed by one or more lines of macro code. These lines of code would then typically be followed by the word or words following the ellipsis(...), which comprises the end of a block.

Sample Visual Basic Procedures

Following is an example of a macro (Sub procedure) that causes an error:

   Sub BadNestingExample()
       If True Then
           For x = 1 To 5
       End If
       Next x
   End Sub

Note that the indentation used above is for illustration purposes only. The macro above may be indented in such a way that the blocks of control statements appear correct. If you attempt to run the above macro, you will receive the "For without Next" error message. The correct form of the code is as follows:

   Sub GoodNesting()
       If True Then
           For x = 1 To 5
           Next x
       End If
   End Sub