Email based on conditions

Private Sub Worksheet_Calculate()
    Dim FormulaRange As Range
    Dim NotSentMsg As String
    Dim MyMsg As String
    Dim SentMsg As String
    Const MyLimit As Double = 3
    
    NotSentMsg = ""
    SentMsg = "Notified"
    '
    '    'Above the MyLimit value it will run the macro
    '    MyLimit = 3
    
    'Set the range with Formulas that you want to check
    Set FormulaRange = Me.Range("P4:P100")
    ''/// don't use umtil testing has finished
    '    On Error GoTo EndMacro:
    For Each FormulaCell In FormulaRange.Cells
        With FormulaCell
            If IsNumeric(.Value) = False Then
                MyMsg = "Not numeric"
            Else
                Select Case FormulaCell.Value
                    Case Is > MyLimit
                        MyMsg = SentMsg
                        If .Offset(0, 1).Value = NotSentMsg Then
                            Call Mail_with_outlook2
                        End If
                    Case Else
                        MyMsg = NotSentMsg
                End Select
            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