Loop without Do error

[morpheusdreams]

Good afternoon,

When running the following code i get a Compile Error "Loop without Do".

Have also tried it with a For - Next loop but similar results.

Any ideas?

there are no other do's or loop's within the module

y = 8

Do
    y = y + 1
    
    If dots >= 5 Then
        dots = 0
        str_Running = str_Run
    Else
        dots = dots + 1
        str_Running = str_Running & "."
    End If

    Sheet1.Cells(3, 6) = str_Running

    If ActiveSheet.Cells(y, 147) > 0 Then
        agnt_num = ActiveSheet.Cells(y, 5)

        Do
            scanY = scanY + 3
        Loop Until Sheet2.Cells(scanY, 3) = agnt_num Or Sheet2.Cells(scanY, 3) = ""

        If Sheet2.Cells(scanY, 3) = "" Then
            Sheet2.Cells(scanY, 3) = agnt_num
            Sheet2.Cells(scanY, 2) = ActiveSheet.Cells(y, 5)
        End If

        reg_hour = 63

        For x = 10 To 43

            cell1 = ActiveSheet.Cells(y, reg_hour)

            Select Case cell1

            Case "S"
                cell1 = 1
            Case "E"
                cell1 = 1
            Case "1"
                cell1 = 1
            Case "OS"
                cell1 = 1
            Case "OE"
                cell1 = 1
            Case "O"
                cell1 = 1
            Case "SS"
                cell1 = 1
            Case "SE"
                cell1 = 1
            Case Else
                cell1 = 0
            End Select

            cell1 = ActiveSheet.Cells(y, reg_hour + 1)

            Select Case cell2

            Case "S"
                cell2 = 1
            Case "E"
                cell2 = 1
            Case "1"
                cell2 = 1
            Case "OS"
                cell2 = 1
            Case "OE"
                cell2 = 1
            Case "O"
                cell2 = 1
            Case "SS"
                cell2 = 1
            Case "SE"
                cell2 = 1
            Case Else
                cell2 = 0
            End Select

            cell0 = (cell1 + cell2) / 2

            Sheet2.Cells(scanY + 1, x) = cell0

            Sheet2.Cells(scanY + 2, x).FormulaR1C1 = "=R[-2]C-R[-1]C"

            reg_hour = reg_hour + 2

        Next x
 
Loop Until y = 300

 

[morpheusdreams]

i found the if formula that was the problem

 

[SkipVought]

Hi,

You're missing an End If

Skip,

_[red][/red]

 

[fumei]

At the very end.

Gerry
My paintings and sculpture

 

[SkipVought]

... prior to

Loop Until y = 300

;-)

Skip,

_[red][/red]

 

[fumei]

Uh...right. Not quite at the very end....

Gerry
My paintings and sculpture

 

[SkipVought]

... the end is near ...

Skip,

_[red][/red]

 

[fumei]

...groan......

Although should that not be "nigh"?

Gerry
My paintings and sculpture