Send Email on cell change works..BUT..

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    If Target.Cells.Count > 1 Then Exit Sub
    On Error GoTo EndMacro
    If Not Target.HasFormula Then
        Set rng = Target.Dependents
        If Not Intersect(Range("AE7"), rng) Is Nothing Then
            If Range("AE7").Value < 20 Then EmailOut 'MyMacroName
    End If
    End If
EndMacro:
End Sub

Sub EmailOut ()    
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strto As String, strcc As String, strbcc As String
    Dim strsub As String, strbody As String
 
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
 
    strto = "[EMAIL="Ak@XYZ.com"]Ak@XYZ.com[/EMAIL]"
    strcc = ""
    strbcc = ""
    strsub = "Testing email send"
    strbody = "Using EmailOut" & vbNewLine & vbNewLine & _
              "Cell AE7 has changed"
 
    With OutMail
        .To = strto
        .CC = strcc
        .BCC = strbcc
        .Subject = strsub
        .Body = strbody
        .Send
    End With
 
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub