That is, if any set of numbers doesn't match any other box. So let it be white like before?
What I want
Sub Test0()
Dim rall As Range, r As Range, strVal As String
Dim d As Object, x As Long
Application.ScreenUpdating = False
Set d = CreateObject("Scripting.Dictionary")...
