Macro to Sum %'s

[xcelnovice]

Hi,

I have a long list of %'s & I need to ensure each section individually adds up to 100%. Can a macro do this faster then me highlighting all of them? Below is a sample

18.94%
27.49%
10.81%
25.43%
0.87%
0.39%
7.47%
8.60%
50.74%
46.94%
1.60%
0.73%
63.67%
36.33%
50.74%
46.94%
1.60%
0.73%

<COLGROUP><COL style="WIDTH: 48pt" width=64><TBODY>
</TBODY>

 

[NeonRedSharpie]

Sub checkPercents()

    Dim sumchecks As Variant
    Dim rowStart As Long


    rowStart = 1


    For x = 1 To Cells(Rows.Count, "A").End(xlUp).Row + 1
        Select Case Cells(x, 1)
            Case ""
                If sumchecks <> 1 Then
                    Range(Cells(rowStart, 1), Cells(x - 1, 1)).Interior.Color = vbYellow
                End If
                sumchecks = 0
                rowStart = x + 1
            Case Else
                sumchecks = sumchecks + Cells(x, 1)
        End Select
                
    Next x


End Sub

This will highlight offending sections yellow. It does highlight 100.01% so you've been warned. I don't know if you want it that exact. It also assumes your data is in column A.

 

[xcelnovice]

That is absolutely perfect! Thanks so much!