Hi Mark,

Your solution works OK if there are no intersheet dependencies, or the
sheets just happen to be calculated in the right sequence.

But its much safer to use the worksheet.enablecalculation property:

in a workbook_Open event
Worksheets("CalcIntensive").enablecalculation=fals e

assign this sub to a button:

sub Specialcalc()
worksheets("CalcIntensive").enablecalculation=true
application.calculate
Worksheets("CalcIntensive").enablecalculation=fals e
end sub

Charles
______________________
Decision Models
The Excel Calculation Site
www.DecisionModels.com

"Mark Bigelow" wrote in message
...
Oops, I forget to tell you to put the following code in the ThisWorkbook
object:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
Call CalculateAllExcept (or whatever the sub was called that I just
sent!)
End Sub

---
Mark Bigelow

http://hm.imperialoiltx.com

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!