Hello I have 2 named ranges I want the values in named range 2 to be compared against the values in named range 1 and if they match change the background colour of that cell or highlight the cell in named range 1.
I have tried various versions of this code below, but have run into errors
Sub CheckNumbers()
Dim rng1 As Range, rng2 As Range, i As Long, j As Long
Dim rw As Range
With Sheets("Play")
Set rng1 = .Range("Namedrange1")
Set rng2 = .Range("Namedrange2")
'For j = 1 To Sheets("Sheet3").Range("C" & Rows.Count).End(xlUp).Row
For Each rw In Sheets("play").Range("Namedrange1")
If StrComp(Trim(rng1.Value), Trim(rng2.Value), vbDatabaseCompare) = 0 Then
rng1.Interior.Color = RGB(255, 255, 0)
End If
Set rng2 = Nothing
Set rng1 = Nothing
Next rw
End With
End Sub
Named range 1 = C3:G34
Named range 2 = N6:R6 1 row
Thank you for any help provided
Bookmarks