MSG Box Repeating

[Dale Cox]

In the following code:

Public Sub SheetCalculate()
' Constants and Variables:
Dim iCalc_Work As Integer

'Code:
' Total 4 SVS months cells and put out a message if >
12
iCalc_Work = Range("E20") + Range("E21") + Range
("E22") + Range("E23")
If iCalc_Work > 12 Then MsgBox "Total of SVS phase
months must be between 1 and 12"
End Sub

The same MsgBox displays a total of 5 times. What is
triggering the repeated ctin and how do I set it to 1
occurrence?

Thansks

 

[Tom Ogilvy]

What causes the macro to fire? SheetCalculate does not match any built in
Events. Anyway, something must be calling your sub 5 times.

 

[Dale Cox]

I am calling it from the Workbook_SheetCalculate event.