Public Sub Impact2()
If MsgBox("Would you like to record the changes that were just made?",
vbYesNo, "Record Changes?") = vbNo Then
Exit Sub
End If

End Sub

Sorry, here is my question:

In the "This Workbook" object I have a subroutine as follows:

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Call Impact2
End Sub

The subroutine Impact2 can be found below:

Public Sub Impact2()
If MsgBox("Would you like to record the changes that were just made?",
vbYesNo, "Record Changes?") = vbNo Then
Exit Sub
End If
End Sub



My problem is that when I calculate, Impact2 is run 10 times and I have to
select 'No' every time before the code finishes running. Is the workbook
calculating more than once? (I have number of iterations set to 0). What can
I do to fix this?

Thanks for your help,
Chad


"Chad" wrote:

> Public Sub Impact2()
> If MsgBox("Would you like to record the changes that were just made?",
> vbYesNo, "Record Changes?") = vbNo Then
> Exit Sub
> End If
>
> End Sub
>

OK, after playing around with it for a little bit here are a few other items
that might help im the prognosis:

I changed the code in the workbook_sheetcalculate subroutine to:

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
MsgBox "test"
End Sub

Whenever I run the code from the code viewer, it runs ok, but whenever it is
run by calculating, this procedure is run 12 times.

If anyone could help I would be very greatful.

Thanks again,
Chad