Highlight differences of values in two named ranges

[Zak Naz]

Need a VBA to select and open two workbooks containing the same defined names, however, different with ranges, then, highlight in one of the workbooks the differences of contents for every named range.

 

[Zak Naz]

This is a sample of the contents of each file with named ranges

Report
.
PROJECT:	KERP South Kuwait Excavation, Transportation, Remediation																				STAGE:	3.1, 3.2
Schedule
Milestone		Cur	Act	For
A		24-Apr-10	25-Apr-17	-
B		10-Apr-18	31-Mar-09
C		21-Aug-08	15-Dec-09
D			15-Nov-02
E		10-Apr-14		12-Mar-20
F		11-Apr-19		13-Mar-20
G		26-Mar-22	gfgfg	Jul-15
H		26-Mar-23		ggyug
I		24-Jun-23
ACTIVITIES:
AAA
VVVVV
GGGGG
LLLLL
ZZZZZZZZZZZZZZ
DDDDDDDDDDDDDD
BBBBBBBBBBBBBBBBBBB
OUTSTANDING:
TTTTTTTTTTTT
Action
jgfjgfjgf
iytityuyt
Dates
Stage Gate	STAT	Cls	Forec
1.0-A		21-Oct-08
2.0- B		31-Jan-30
3.1- C		Jan-20
3.2- D			Mar-20
4.0- E			Jul-15
5.0- F

 

[Zak Naz]

The following macro is working as expected, however, for comparing two named ranges on the same sheet. What I need is to compare ALL named ranges on two different workbooks that both have identical named ranges.

Sub CompareRanges()
Dim rangeToUse As Range, singleArea As Range, cell1 As Range, cell2 As Range, i As Integer, j As Integer

Set rangeToUse = Range("sheet1!Ongoing_ACTIVITIES,sheet1!Outstanding_ACTIVITIES")

'Cells.Interior.ColorIndex = 0
rangeToUse.Interior.Color = vbYellow

'rangeToUse.Interior.ColorIndex = 6

For i = 1 To rangeToUse.Areas.Count
For j = i + 1 To rangeToUse.Areas.Count
For Each cell1 In rangeToUse.Areas(i)
For Each cell2 In rangeToUse.Areas(j)
If cell1.Value = cell2.Value Then
cell1.Interior.ColorIndex = 0
cell2.Interior.ColorIndex = 0
End If
Next cell2
Next cell1
Next j
Next i

End Sub