Code works in worksheet_change but not in worksheet_calculate

[landonh]

I am getting there but here is my current situation.
The worksheet_change event will work with this abbreviated code.

Private Sub Worksheet_Change(ByVal target As Range)

'***************************************************
' Add next group here
' [Line B1] Send Excel e-mail and output the result.
Dim ZedE11
Dim commandE11

'only run this code if E11 has changed ()
Set rngUpdate = Application.Intersect(target, Range("E11"))
If Not rngUpdate Is Nothing Then
If Range("E11").Value > ("600") Then

I need for the code to happen in the calculated method due to a formula in recalculating the data.

The non-working edition is as follows and has some thing to due with the calculated event.

Private Sub Worksheet_Calculate(ByVal target As Range)

'***************************************************
' Add next group here
' [Line B1] Send Excel e-mail and output the result.
Dim ZedE11
Dim commandE11

'only run this code if E11 has changed ()
Set rngUpdate = Application.Intersect(target, Range("E11"))
If Not rngUpdate Is Nothing Then
If Range("E11").Value > ("505") Then


I get a compile error:
Procedure declaration does not match description of event or procedure having the same name

The code works in the worksheet_change but not in the worksheet_calculate

 

[VoG]

The Calculate event does not have a Target parameter. Perhaps

Private Sub Worksheet_Calculate()

'***************************************************
' Add next group here
' [Line B1] Send Excel e-mail and output the result.
Dim ZedE11
Dim commandE11

'only run this code if E11 has changed ()
If Range("E11").Value > ("505") Then

 

[landonh]

Private Sub Worksheet_Calculate(ByVal target As Range)

' Add next group here
' [Line B1] Send Excel e-mail and output the result.
Dim ZedE11
Dim commandE11

'only run this code if E11 has changed ()

Set rngUpdate = Application.Intersect(target, Range("E11"))

If Not rngUpdate Is Nothing Then

If Range("E11").Value > ("505") Then


I get a compile error:
Procedure declaration does not match description of event or procedure having the same name

 

[landonh]

The purpose of this code is to send an email when a cell value is updated and above some criteria.

I only need to to activate if a cell is updated or changes in value.

Or is that the incorrect thinking for calculated.

It works for change but now calculated.

 

[Ruddles]

In case you didn't spot it:-

Private Sub Worksheet_Calculate(ByVal target As Range)

The Calculate event does not have a Target parameter.

Private Sub Worksheet_Calculate()

 

[VoG]

Try

Private Sub Worksheet_Calculate()

'***************************************************
' Add next group here
' [Line B1] Send Excel e-mail and output the result.
Dim ZedE11
Dim commandE11
Static OldVal

'only run this code if E11 has changed ()
If Range("E11").Value <> OldVal Then
    OldVal = Range("E11").Value
    If Range("E11").Value > "505" Then
        '
        'more code
        '
    End If
End If
End Sub