I have a workbook with many, many macros. Since I upgraded to Excel 2007, I
am receiving the following error message with one of my macros:

"Run-time error 1004. The number must be between 1 and 32767. Try again by
entering a number in this range"

Here is a sample of the code. The statement "Application.MaxIterations =
olditer" is the line that is being highliged by Visual Basic.

skipcalc4:
If Worksheets("Workarea").Cells(43, 7) < 0 Then
Worksheets("NPV Model Workarea").Cells(43, 7) = 0
End If

Application.MaxIterations = olditer
Application.MaxChange = oldchange

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Worksheets("Workarea").Visible = False

End Sub

At the risk of stating the obvious, there's something wrong with "olditer".
Since you didn't provide the code that sets it is there any chance it's not
being set? And therefore has the value 0 (which is not between 1 and
32767)?

--
Jim
"PJ" <(E-Mail Removed)> wrote in message
news:5E0FD429-645A-4433-A899-(E-Mail Removed)...
>I have a workbook with many, many macros. Since I upgraded to Excel 2007,
>I
> am receiving the following error message with one of my macros:
>
> "Run-time error 1004. The number must be between 1 and 32767. Try again
> by
> entering a number in this range"
>
> Here is a sample of the code. The statement "Application.MaxIterations =
> olditer" is the line that is being highliged by Visual Basic.
>
> skipcalc4:
> If Worksheets("Workarea").Cells(43, 7) < 0 Then
> Worksheets("NPV Model Workarea").Cells(43, 7) = 0
> End If
>
> Application.MaxIterations = olditer
> Application.MaxChange = oldchange
>
> ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
> Scenarios:=True
> Worksheets("Workarea").Visible = False
>
> End Sub