Highlight Sequential Cells That Sum Up To A Value

[Prabhu]

Sub snb()
    j = 1
    Do Until Application.Sum(Cells(2, 11).Resize(j)) >= Cells(1, 12).Value
        j = j + 1
    Loop
    Cells(2, 13).Resize(j - 1).Interior.ColorIndex = 4
End Sub

Hi,

Same result am getting.

It is not hithlighting very near to 10 L.

Plz fidn the attached working which i have highlighted the cells(Manualy) which is very near to 10 L.

Kindly do the needful.

Prabhu