Summing rows in a column up to a specific value

Hi, I am trying to figure out how to highlight certain cells in a column up to a point where the column numbers add up to a specific value.

For example

Col A
10
15
3
15

If I want to know how how far down the list I can go up until the sum of the rows is less than or equal to 26. I this case, I would like to highlight the first two rows.

Sub Macro1()
'
' Macro1 Macro
'

'
Dim j, jmin, sm, value As Double

Worksheets("sheet4").Select

' desired value in your case 26 should be placed in A1

value = Cells(1, 1)
j = 3
sm = 0
While sm < value And Cells(j, 1) <> ""
sm = sm + Cells(j, 1)
If sm < value Then
Range("A" & j).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
j = j + 1
Wend
End Sub

=sum($a$1:$a1)<=26

hi
in conditional formatting, apply this formular to cell A! (assuming its the first in the sequence) then copy > paste special > paste format to the other cells:

Please Login or Register  to view this content.

then select the format you want