Highlight Sequential Cells That Sum Up To A Value

[snb]

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