Calculate All will lead to forced calculation of all open workbooks, but it
may be not reasonably. Try the following:


Application.Calculation = xlCalculationManual
For Each rabsheet In .Worksheets
rabsheet.Activate
rabsheet.UsedRange.Calculate
Next
Application.Calculation = xlCalculationAutomatic



"xLBaron" wrote:

Hi Brian -

Try adding this to the end of your macro:

application.CalculateFull

If this doesn't work then try:

Add this macro to your workbook

Sub CalculateFull()
application.CalculateFull
End Sub

then add this to the end of each of your macros

application.Run "' Workbook Name .xls'!CalculateFull"

Good luck