I need a vba code that will compare 2 worksheets and find rows with multiple identical cell values and highlight those cells : I have to compare data between 2 worksheets of excel and find the rows that have similar values. I have multiple values in a single row and these values match values from another row in a different sheet. I would like these values to be highlighted. 

I have tried a code which works when I use it on small data, for example 10 rows from each sheet. But when i use it on more data, the excel just goes not responding and doesn't work even after waiting for a long time.After some more research I found out that that the overhead between the vba and excel is causing the long wait and unresponsive behavior. Please provide me with a code that will work similar to this one but in a short time.

  



    Sub CompareRanges()
    'Update 20130815
    Dim WorkRng1 As Range, WorkRng2 As Range, Rng1 As Range, Rng2 As Range
    xTitleId = "KutoolsforExcel"
    Set WorkRng1 = Application.InputBox("Range A:", xTitleId, "", Type:=8)
    Set WorkRng2 = Application.InputBox("Range B:", xTitleId, Type:=8)
    For Each Rng1 In WorkRng1
        rng1Value = Rng1.Value
        For Each Rng2 In WorkRng2
            If rng1Value = Rng2.Value Then
                Rng1.Interior.Color = VBA.RGB(0, 255, 0)
                Rng2.Interior.Color = VBA.RGB(0, 255, 0)
                Exit For
            End If
        Next
    Next
    End Sub



