Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim linha As Long
Dim valor1, valor2 As Variant
linha = 1
While ThisWorkbook.Sheets("Planilha1").Range("A" & linha) <> ""
If linha >= 2 Then
valor1 = ThisWorkbook.Sheets("Planilha1").Range("A" & linha - 1).Value
valor2 = ThisWorkbook.Sheets("Planilha1").Range("A" & linha).Value
If valor2 <> valor1 Then
MsgBox "O valor da linha " & linha & " é diferente do valor da linha " & linha - 1
End If
End If
linha = linha + 1
Wend
End Sub
Anderson Diniz diniabr2011@gmail.com