Boa noite fgmsl

Se vc anexar uma planilha exemplo Zipada aqui no fórum, vai facilitar.

Um abraço

Segue um exemplo

Por favor me ajudem nesse problema.

Veja se é isto, supondo que estamos falando quando modificar somente "A2", coloque a rotina no evento change da planilha:

Private Sub Worksheet_Change(ByVal Target As Range)

    sValB2 = [B2]
    
    If Target.Address = Range("A2").Address Then
        sVal1 = Target.Value
        
        If sVal1 = sValB2 Then
            MsgBox "Numeros iguais"
        
        Exit Sub
    Else
        MsgBox "Numeros Diferentes"
        End If
    End If

End Sub

[]s

Editei a mensagem e na hora de reenviar deu que não posso mais alterar, então segue a parte editada.

Supondo que queira usar a rotina para as duas celulas troque a linha :
"If Target.Address = Range("A2").Address Then" pela abaixo:

If Target.Address = Range("A2").Address Or Target.Address = Range("B2").Address Then

Assim será verificado sempre que selecionar tanto em A2 ou em B2.

[]s

Colegas, desculpem mais esta edição, é que na pressa, não percebi que cometi um erro, a rotina correta seria esta :

Private Sub Worksheet_Change(ByVal Target As Range)

    sValB2 = [B2] 'Valor em B2
    sValA2 = [A2] 'Valor em A2
    
    If Target.Address = Range("A2").Address Or Target.Address = Range("B2").Address Then
         
        If sValA2 = sValB2 Then
            MsgBox "Numeros iguais"
        
        Exit Sub
    Else
        MsgBox "Numeros Diferentes"
        End If
    End If

End Sub

abraços