[Resolvido] Worksheet_Change

por favor, alguem pode me ajudar a resolver isso?

No VBA do Excel este script funciona SOMENTE quando eu altero a célula diretamente mas não INDIRETAMENTE:

As células C17 e D17 contém "SE(x>0;1;0)", por exemplo, que é como consequência modificado pelo argumento.

Grato.

Private Sub Worksheet_Change(ByVal faixa As Range)
If Not Intersect(faixa, Range("c17:c17")) Is Nothing Then
If faixa.Offset(0, 0).Value > 0 Then
Application.EnableEvents = False
MsgBox "celula C17"
Application.EnableEvents = True
End If
End If
If Not Intersect(faixa, Range("d17:d17")) Is Nothing Then
If faixa.Offset(0, 0).Value > 0 Then
Application.EnableEvents = False
MsgBox "celula D17"
Application.EnableEvents = True
End If
End If
End Sub