Workbook Event

[pusky123]

Hi,

I want a message box to appear when the value of a cell reaches a certain level.

I've tried the following code in the 'ThisWorkbook' section but it just comes up with an error:

Private Sub Workbook_SheetCalculate(ByVal_Sh As Object)
If Sh.Range("B21").Value > 0 Then
MsgBox "No Lose Scenario " & Sh.Name
End If
End Sub


The error that is dispalyed is 'Procedure Declaration does not match description or event of procedure having the same name'. It then highlights the first line.

Could anyone help please? Please note I am an absolute beginner!

[JE McGimpsey]

Change the first line to

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)


The default argument name is "Sh", not "ByVal_Sh"

"ByVal" indicates that it should be passed by value, not reference (see
VBA Help's "Sub Statement" topic for an explanation)



In article <[email protected]>,
pusky123 <[email protected]>
wrote:

> Hi,
>
> I want a message box to appear when the value of a cell reaches a
> certain level.
>
> I've tried the following code in the 'ThisWorkbook' section but it just
> comes up with an error:
>
> Private Sub Workbook_SheetCalculate(ByVal_Sh As Object)
> If Sh.Range("B21").Value > 0 Then
> MsgBox "No Lose Scenario " & Sh.Name
> End If
> End Sub
>
>
> The error that is dispalyed is 'Procedure Declaration does not match
> description or event of procedure having the same name'. It then
> highlights the first line.
>
> Could anyone help please? Please note I am an absolute beginner!