For/Next loop error

[Titian]

I am getting a "Next without For" compile error with the following extract of code. Is it due to the "Case" statement within the loop?

For i = 148 To 162
        accounts = Cells(i, 15)
        Select Case accounts
            Case Is >= 150: If Cells(i, 19).Value = 150 Then Cells(i, 18).Value = 150 Else _
                Cells(i, 18).Value = Cells(i, 19).Value + 10
            Case 100 To 149
                If Cells(i, 19).Value = 100 Then
                    Cells(i, 18).Value = 100
                        Else: If Cells(i, 19).Value > 50 Then Cells(i, 18).Value = Cells(i, 19).Value + 5 Else _
                        Cells(i, 18).Value = Cells(i, 19).Value + 10
                End If
            Case Else
    Next i

Any help appreciated, thanks.

 

[VoG]

You are missing an End Select

          Case Else
    End Select
Next i

 

[Titian]

Wow that was quick.

Thanks Peter