question

Hi all, I would need highlight a couple of cells related to every company and based to two different accounts (400 and 430) and where the substract of both values be <> 0.

Let me illustrate this with a screenshot

The outcome would be the following:

Snippet code, it is just an approach, isn't working at all:

Sub ni()

Set Rng = Range("C2:E7")

Dim rango As Range

For Each cell In Rng

Set rango = ActiveCell

If Abs(rango.Offset(1, 0).Value) - Abs(rango.Offset(y, 0).Value) < 0 Then

     Debug.Print "differents"
     Range("C2:C3").Select

     'Range(Cells(3, 3), Cells(y, x)).Select
     With Selection.Interior
         .Pattern = xlSolid
          .PatternColorIndex = xlAutomatic
          .ThemeColor = xlThemeColorAccent4
          .TintAndShade = 0.599993896298105
          .PatternTintAndShade = 0
     End With

End If
y = y + 1

Next cell

End Sub

Thanks in advance,