Thank you very much in advance to anyone who can explain this to me. I've
created a series of procedures to convert text I have in Word into a format
with tabs that can be recognized as columns by Excel. The purpose of this
particular portion of the code is to review the text line by line to put the
paragraphs in numeric order. (In the sample below, it will move the line
number 5 up to between the 4 and 6, then move on.)  As I debug this
application, I don't understand why the VBA editor keeps looping back to
"End Select" or "End Sub" when I don't want it to. I see this in other subs
as well.

I simply want the application to end the current sub when it reaches my "88"
(which I use to indicate the end of the document) and step back into the
other portions of my code beyond what I pasted here. Further, I don't
understand how VBA decides how many times to loop around in this fashion.
Finally, after pushing F8 20 or 30 times when it should have already ended
my sub, the sub eventually goes from bouncing between "End Select" and "End
Sub" back to other lines of code in this sub which causes additional
problems. Again, I just want the sub to end. I thought I was using If-Thens
wrong, so converted to Select-Cases, but the problem persists.

In case someone can test my code, here is the text you can run the sub on:
0 NANCY

1 BAYS

2 1502 SUMMER RUN DR. UNIT 205

4 FLORISSANT

6 63033

5 Missouri

11 BAYS

20 1991

88

The code is below. To test, first position the cursor at the top of that
text, then step into the macro "ReOrderRowsV2."

Many Thanks,

Garth

Carlsbad, CA

760-929-9715 home

__________Here's the code___________

Dim Var(2) As Integer

Sub ReOrderRowsV2()
Select Case Var(1)
Case "0" To "77"
 SetNextCharEqualToVar1ForReOrder
 RunOrderingIfThens
End Select
End Sub

Sub RunOrderingIfThens()

Select Case Var(1)
Case 0
   GoToNextRow
   Var(0) = Var(1)
   ReOrderRowsV2

Case 77
   GoToNextRow
   Var(1) = 0
   Var(0) = 0
   ReOrderRowsV2

Case "1" To "76"
    If Var(0) - Var(1) > 0 Then
    MoveParUp
    End If
  GoToNextRow
  ReOrderRowsV2
End Select
End Sub

Sub SetNextCharEqualToVar0ForReOrder()
Select Case Var(1)
Case "0" To "77"
   On Error Resume Next
   selectNextNumber
   Var(0) = Selection.Text
End Select
End Sub

Sub SetNextCharEqualToVar1ForReOrder()
Select Case Var(1)
Case "0" To "77"
On Error Resume Next
   selectNextNumber
   Var(0) = Var(1)
   Var(1) = Selection.Text
End Select
End Sub

Sub GoToNextRow()
   Selection.MoveDown Unit:=wdParagraph, Count:=1
End Sub

Sub selectNextNumber()
   On Error Resume Next
   Selection.find.ClearFormatting
   With Selection.find
       .Text = " "
       .Replacement.Text = "^p"
       .Forward = True
       .Wrap = wdFindAsk
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.find.Execute
   Selection.moveleft Unit:=wdCharacter, Count:=1
   Selection.moveleft Unit:=wdWord, Count:=1, Extend:=wdExtend
End Sub

Sub MoveParUp()
   Selection.moveleft Unit:=wdCharacter, Count:=1
   Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
   Selection.Cut
   Selection.MoveUp Unit:=wdLine, Count:=1
   Selection.PasteAndFormat (wdPasteDefault)
   If Var(0) > 2 Then
       Selection.MoveUp Unit:=wdLine, Count:=2
   End If
   SetNextCharEqualToVar0
   Selection.moveleft Unit:=wdCharacter, Count:=1
   GoToNextRow
   selectNextNumber
   RunOrderingIfThens
End Sub

Sub selectNextNumber()
   On Error Resume Next
   Selection.find.ClearFormatting
   With Selection.find
       .Text = " "
       .Replacement.Text = "^p"
       .Forward = True
       .Wrap = wdFindAsk
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.find.Execute
   Selection.moveleft Unit:=wdCharacter, Count:=1
   Selection.moveleft Unit:=wdWord, Count:=1, Extend:=wdExtend
End Sub