comparing values in named ranges

Try such combination:

    'Color   Red  Green Blue
    '=======================
    'Black   0    0     0
    'Blue    0    0     255
    'Green   0    255   0
    'Cyan    0    255   255
    'Red     255  0     0
    'Magenta 255  0     255
    'Yellow  255  255   0
    'White   255  255   255

Sub CheckKangarooNumbers()
    Dim i%, x%, y%, z%, rng1, rng2
    
    With Sheets("Play")
        rng2 = .Range("Namedrange2").Value
        With .Range("Namedrange1")
            rng1 = .Value
            .ClearFormats
            For i = 1 To UBound(rng2, 2)
                x = x + 25
                y = y + 50
                z = z + 5
                Application.ReplaceFormat.Interior.Color = RGB(100 + x, 50 + y, 10 + z)
                .Replace What:=rng2(1, i), Replacement:=rng2(1, i), LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
            Next
        End With
    End With
End Sub