Compare and exact match two columns data on two separate tabs in one spreadsheet

Hi chs,

Here's a macro if you like:

Sub ClassyStyle(): Dim r As Long, t As Long, u As Long
Dim S As String, C As String, T2 As Worksheet
Set T2 = Sheets(2)
r = ActiveCell.row
GetAnother:
S = ActiveCell: C = ActiveCell.Offset(0, 1)
With T2
For t = r To Sheets(2).Cells(Rows.count, 1).End(xlUp).row
If S = .Cells(t, 1) Then
If C = .Cells(t, 2) Then
.Cells(t, 3) = "Match"
Else
.Cells(t, 3) = "Mismatch"
End If: End If
Next t
End With
ActiveCell.Offset(1, 0).Select
If ActiveCell = "" Then Exit Sub
GoTo GetAnother
End Sub