Excel. Не вижу ошибки

[M@SKIT]

Выкидывает ошибку "loop without do" не могу понять почему.

Код: Выделить всё


Sub spisokrezultatov()
Dim M As Integer
Dim SummaObshegoDolga As Long
Dim OPJ As String

Sheets("page").RezLst.Clear

M = 0
SummaObshegoDolga = 0

Do Until OPJ = ""
    OPJ = Sheets("page").Cells(5 + M, 10)
        M = M + 1
    If Sheets("page").Cells(5 + M, 1) = "грн" Then
        SummaObshegoDolga = SummaObshegoDolga + Sheets("page").Cells(5 + M, 10)
   
Loop
Sheets("page").RezLst.AddItem "Сумма общего долга=" & SummaObshegoDolga
End Sub


Подскажите пожалуйста в чем проблема.

[bi-lya]

Поставте End If или все условие If...Then одной строкой
Бывает такая беда очень часто

[KL]

отсутствует либо

пробел+подчеркивание (" _") после Then

либо

End If

[M@SKIT]

Да действительно! Спасибо!