VBA won't execute when formula changes cell value

Hi all,

I'm having a hard time getting this to work;

VBA executes the code when value of a cell is "X"

When the value of a cell is changed to "x" due to a formula (=IF(A3+A5=4,"x",0)), unfortunately VBA will not be triggered unless I manually put an 'X' into the cell.

Can any one help me out with this?


the code is use:

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim r As Range

 Application.EnableEvents = False
 If LCase(Target) = "x" Then
 With Sheets("mail")
 LR = .Cells(Rows.Count, 1).End(xlUp).Row + 1
 Target.EntireRow.Copy Destination:=.Cells(LR, 1)
 Target.EntireRow.Delete
 End With
 End If
 Application.EnableEvents = True
 End Sub

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Me.Calculate
 End Sub