VBA tells me I have a Loop without a Do, but I'm not sure where the problem lies.

Hi all, simple question, I believe. I've written this macro

Function BuscarFila(Codigo As String, Rango As Range)

Dim FilaCorriente As Integer
Dim NoDeFilas As Integer
Dim FilaEquivalente As Integer
Dim Cods As Variant
Dim CodInd As Variant

FilaEquivalente = 0
FilaCorriente = 1

Do
    Cods = Split(Rango.Cells(FilaEquivalente, 1), ", ")
    For Each CodInd In Cods
    If CodInd.Value = Codigo Then
        FilaEquivalente = FilaCorriente
    End If
    FilaCorriente = FilaCorriente + 1
    Debug.Print CodInd
Loop Until ((FilaCorriente = NoDeFilas) Or (FilaEquivalente <> 0))

If FilaEquivalente <> 0 Then
    MsgBox (Rango.Cells(FilaEquivalente, 1).Value)
End If

End Function

And I keep getting the same error: "Loop without Do"

So I'm assuming that something inside that Do is closing it but I don't know enough about VBA to know what that could be. Could somebody illuminate that for me?

Thank you very much in advance.