Microsoft Excel

1.        Option Explicit  

2.        Option Compare Text  

3.          

4.        Sub ertert()  

5.        Dim x, i&: Application.ScreenUpdating = False  

6.        With Sheets("Incident Management")  

7.         x = .Range("E1:G" & .Cells(Rows.Count, 5).End(xlUp).Row).Value  

8.        End With  

9.        With CreateObject("Scripting.Dictionary")  

10.      .CompareMode = 1  

11.      For i = 2 To UBound(x)  

12.      .Item(x(i, 1)) = x(i, 3)  

13.      Next i  

14.        

15.      With Sheets("Open Incidents")  

16.      With .Range("D1:G" & .Cells(Rows.Count, 4).End(xlUp).Row)  

17.      x = .Value  

18.      .Columns(4).Offset(1).Interior.Color = xlNone  

19.      End With  

20.      .Activate  

21.      End With  

22.        

23.      For i = 2 To UBound(x)  

24.      If .Exists(x(i, 1)) Then  

25.      If .Item(x(i, 1)) <> x(i, 4) Then Cells(i, 7).Interior.ColorIndex = 45  

26.      End If  

27.      Next i  

28.     End With  

29.     Application.ScreenUpdating = True  

30.     End Sub