Error 1004 Application defined or object defined error

[Legacy 185509]

Hi
I am trying to use auto email if value is greater than 0
initial value of cell is 0
here is the code
when I change J3 from 0 to 1 I get this error
Error 1004 Application defined or object defined error

Private Sub Worksheet_Calculate()
    Dim FormulaRange As Range
    Dim NotSentMsg As String
    Dim MyMsg As String
    Dim SentMsg As String
    Dim MyLimit As Double
 
    NotSentMsg = "Not Sent"
    SentMsg = "Sent"
 
    'Above the MyLimit value it will run the macro
    MyLimit = 0
 
    'Set the range with the Formula that you want to check
    Set FormulaRange = Me.Range("J3")
 
    On Error GoTo EndMacro:
    For Each FormulaCell In FormulaRange.Cells
        With FormulaCell
            If IsNumeric(.Value) = False Then
                MyMsg = "Not numeric"
            Else
                If .Value > MyLimit Then
                    MyMsg = SentMsg
                    If .Offset(0, 1).Value = NotSentMsg Then
                        Call Mail_with_outlook1
                    End If
                Else
                    MyMsg = NotSentMsg
                End If
            End If
            Application.EnableEvents = False
            .Offset(0, 1).Value = MyMsg
            Application.EnableEvents = True
        End With
    Next FormulaCell
 
ExitMacro:
    Exit Sub
 
EndMacro:
    Application.EnableEvents = True
 
    MsgBox "Some Error occurred." _
         & vbLf & Err.Number _
         & vbLf & Err.Description
 
End Sub
Sub Mail_with_outlook1()
'For mail code examples visit my mail page at:
'http://www.rondebruin.nl/sendmail.htm
    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")
    Set OutMail = OutApp.CreateItem(0)
 
    strto = "abc123@gmail.com"
    strcc = ""
    strbcc = ""
    strsub = "Customers"
    strbody = "Hi Zuber" & vbNewLine & vbNewLine & _
              "The total Customers of all stores this week is : " & Cells(FormulaCell.Row, "J3:J15").Value & _
              vbNewLine & vbNewLine & "Good job"
 
    With OutMail
        .To = strto
        .CC = strcc
        .BCC = strbcc
        .Subject = strsub
        .Body = strbody
        'You can add a file to the mail like this
        '.Attachments.Add ("C:\test.txt")
        .Display    ' or use .Send
        '.Send ' or use .Display
    End With
 
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

 

[Andrew Poulsom]

On which line of code do you get that error?

 

[Legacy 185509]

Andrew thank you for replying, I figured out the problem whole code is wrong
Thanks for help