title: compare two excel sheet column by column
body: <pre><code>Sub CompareAndHighlight()
  
  Dim xRange As Range, yRange As Range
  Dim xCell As Range, yCell As Range
  Dim Found As Range
  
  Dim wsX As Worksheet: Set wsX = ThisWorkbook.Sheets("Sheet1")
  Dim wsY As Worksheet: Set wsY = ThisWorkbook.Sheets("Sheet2")
  
  LR1 = wsX.Range("A" &amp; wsX.Rows.Count).End(xlUp).Row
  LR2 = wsY.Range("A" &amp; wsY.Rows.Count).End(xlUp).Row
  
  Set xRange = wsX.Range("A1:A" &amp; LR1)
  Set yRange = wsY.Range("A1:A" &amp; LR2)
  
  For Each xCell In xRange
  
      Set Found = yRange.Find(xCell.Value)
  
      If Found Is Nothing Then
          xCell.Interior.Color = RGB(255, 0, 0)
      End If
  
      Set Found = Nothing
  
  Next xCell
  
  End Sub
  </code></pre>
  
  <p>I use above code to compare two excel sheets. i do comparison only between only column "A".</p>
  
  <p>What I want to do is compare other column sequentially like compare further "B" to "b" and "c" to "c".</p>
  
  <p>how can i do that by changing the code.</p>