macro to caculate workbook when i change a cell value?

[tonywatsonhelp]

Hi everyone,

I have a very large document with a lot of formulas in it, although I've thought about changing it to VBA calculations the formulas do a good job so for now I will stick with them.
However because the document is so large I have switched it to manual calculations which makes it work great. I now just need a macro that can calculate all the formulas when i change something?

Its only need for one sheet, Sheet "Raw Data" and the range B2:Ad5000, but what i need is a macro that will calculate the document if any cell or cells are changed.

any help would be appreciated

Thanks
Tony

 

[jproffer]

I'm not sure you can calculate just one sheet. But I'll throw this in here anyway:

If Not Intersect(Target,Range("B2:AD5000")) Is Nothing Then
Application.Calculate

This would go in the sheet code. Right click the tab, "view code", left dropdown at the top select "worksheet", right dropdown select "Change", paste this between "Sub......." and "End Sub"

BUT, I still don't think it's going to do what you want. As you can see, the line of code is "Application.Calculate"...meaning it will calc the entire workbook. SO you're probably better (or at least just as well) to set your calculation to auto.