comparing values in named ranges

Hi UltimateNeo,

hope this helps

Sub CheckNumbers()

   Dim rng1 As Range, rng2 As Range
   Dim cel1 As Range, cel2 As Range
   
   With Sheets("Play")
      Set rng1 = .Range("Namedrange1")
      Set rng2 = .Range("Namedrange2")
      
      For Each cel1 In Sheets("play").Range("Namedrange1")
         For Each cel2 In Sheets("play").Range("Namedrange2")
            If StrComp(Trim(cel1.Value), Trim(cel2.Value), vbTextCompare) = 0 Then
               cel1.Interior.Color = RGB(255, 255, 0)
            End If
         Next cel2
      Next cel1
      Set rng2 = Nothing
      Set rng1 = Nothing
   End With
   
End Sub

Grtz