Выделить цветом все строки диапазона, имеющие одинаковые суммы

Dim Matrix As Range 
Dim Rows As Byte, c As Range 
Set Matrix = [A1:C4] 
For Rows = 1 To Matrix.Rows.Count 
s:=s+ Matrix.Cells(Rows) 
'(if s= )здесь должна быть строка, которая проверяет совпадения сумм
Then 
Diapozon.Interior.Color = vbYellow

Sub proba()
Dim I As Integer, J As Integer, c As Range, Lr As Integer, Lc As Integer
Dim K As Integer, Sum(), S, L As Integer, Matrix As Range
Set Matrix = [A1:C4]
Lr = Matrix.Rows.Count
Lc = Matrix.Columns.Count
Matrix.Interior.Color = xlNone ' убираем старые цвета
ReDim Sum(1 To Lr)
For I = 1 To Lr
  S = 0
  For J = 1 To Lc: S = S + Matrix.Cells(I, J): Next
  Sum(I) = S
Next
For I = 1 To Lr - 1
  If Matrix(I, 1).Interior.ColorIndex = xlNone Then
    S = Sum(I): K = 1
    For J = I + 1 To Lr
      If Sum(J) = S Then
        K = K + 1
        For L = 1 To Lc: Matrix(J, L).Interior.Color = vbYellow: Next
      End If
      If K > 1 Then
        For L = 1 To Lc: Matrix(I, L).Interior.Color = vbYellow: Next
      End If
    Next
  End If
Next
End Sub