Right, so this:

Private Sub Worksheet_Calculate(ByVal Target As Range)

does not follow the prototype:

Private Sub Worksheet_Calculate()

You can't just add "ByVal Target As Range". Are you confusing this with the
Worksheet_Change event?

--
Jim
"aftamath" wrote in message
...
| I'm still getting the same message, here's the code:
|
| Private Sub Worksheet_Calculate(ByVal Target As Range)
|
| If Not Application.Intersect(Range("R2"), Target) Is Nothing Then
|
| intRow = (Range("W2") - Target.Value) / 0.0001
|
| MsgBox intRow
|
| End If
| End Sub
|
| I only get that message when I used the Calculate procedure.
|
| "Jim Rech" wrote:
|
| The sub should look like this:
|
| Private Sub Worksheet_Calculate()
|
| The error message suggests that you've modified it in some way.
|
| --
| Jim
| "aftamath" wrote in message
| ...
| | What does"Procedure declaration does not match description of event or
| | procedure having the same name" mean. I'm under Private Sub
| | Worksheet_Calculate in VBA.
|
|
|