Simple function

[sabascal]

Hi all,

The here below custom function should return me the non integer. I got the compile error: Next without for
I don't understand why.

Can somebody help.

Thanks Seb.


=====================
Function StartDep() As Double
a = 0
For i = 1 To 10
YrStart = Range("flag1").Cells(1, i)
If YrStart > 0 Then
a = YrStart
Exit function

Next i
StartDep = a

End Function

 

[strongm]

Because you have actually have an error in a block If statement. Put an End If after your Exit Function statement, and all should be well