Next Without For Error

[Rambo]

Hi, Im getting a error 'Next With For' but im using For. Heres My Code:


Select Case Network(H).GetNumberOfEndActs
Case 1 '
Case Network(H).GetNumberOfEndActs Mod 2 = 1
' ODD NUMBER
Median = Round(Network(H).GetNumberOfEndActs / 2, 0)
Median = Network(H).GetEndAct(Median - 1)

If Network(Network(H).GetEndAct(0)).GetEndAct(0) = Network(Network(H).GetEndAct(1)).GetEndAct(0) Then
Network(Network(H).GetEndAct(0)).SetX = Network(H).GetX + 100

Network(Network(H).GetEndAct(0)).SetY = Network(H).GetY - 65


Network(Network(H).GetEndAct(1)).SetX = Network(H).GetX + 100

Network(Network(H).GetEndAct(1)).SetY = Network(H).GetY + 65

End If

' EVEN NUMBER
Median = Network(H).GetNumberOfEndActs / 2
Median = Network(H).GetEndAct(Median)


''''''''''''''''''''''''''''''''''''''''''
'POSITON X AND Y FOR THE MIDDLE NUMBER
''''''''''''''''''''''''''''''''''''''''''
If Network(Network(H).GetEndAct(0)).GetX = 0 And Network(Network(H).GetEndAct(0)).GetY = 0 Then
Network(Median).SetX = Network(H).GetX + 100
Network(Median).SetY = Network(H).GetY



'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' CALCULATES HOW MANY NODES ARE ABOVE MEDIAN AND BELOW
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

For T = 0 To Network(H).GetNumberOfEndActs - 1
If Network(H).GetEndAct(T) < Median Then
UpperCount = UpperCount + 1
ElseIf Network(H).GetEndAct(T) = Median Then
' DO NOTHING
ElseIf Network(H).GetEndAct(T) > Median Then
LowerCount = LowerCount + 1
End If
Next T


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'POSITION X AND Y FOR UPPER COUNT FROM MEDIAN
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

For W = UpperCount - 1 To 0 Step -1
Network(Network(H).GetEndAct(W)).SetX = Network(Median).GetX
Network(Network(H).GetEndAct(W)).SetY = Network(Network(H).GetEndAct(W + 1)).GetY - 75
Next W


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'POSITION X AND Y FOR LOWER COUNT FROM MEDIAN
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
For V = LowerCount + 1 To Network(H).GetNumberOfEndActs - 1
Network(Network(H).GetEndAct(V)).SetX = Network(Median).GetX
Network(Network(H).GetEndAct(V)).SetY = Network(Network(H).GetEndAct(V - 1)).GetY + 75
Next V
UpperCount = 0
LowerCount = 0
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ADDS A CIRCLE
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sheets("Sheet2").Select
ActiveSheet.Shapes.AddShape(msoShapeOval, Network(H).GetX, Network(H).GetY, 50, 50#).Select
Selection.Characters.Text = Network(H).GetNodeNumber
With Selection.Characters(Start:=1, Length:=1).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.HorizontalAlignment = xlCenter
Range("K7").Select
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ADDS A LINE
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'ActiveSheet.Shapes.AddLine(Network(H).GetY, 200, Network(H).GetX, 200).Select
'Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
'Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
'Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
'Selection.ShapeRange.ZOrder msoSendToBack

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Next H
' EARLIEST EVENT TIME
' LATEST EVENT TIME
End Sub

[gwkenny]

There's no for to correspond with "Next H" that's the fourth line from the end of your code.

That's the whole reason for using indents while coding, to let you know what level you are on :)