This should do the trick.

Sub RefreshCalculate()
Dim MySheet as Worksheet

For Each MySheet In Worksheets
Cells.Select
Selection.Replace What:="=", Replacement:="="
Application.MaxChange = 0.001
ActiveWorkbook.PrecisionAsDisplayed = False
Calculate
Next

End Sub

Regards, Martijn

"al007" schreef in bericht
oups.com...
Sub RefreshCalculate()

Cells.Select
Selection.Replace What:="=", Replacement:="="
Application.MaxChange = 0.001
ActiveWorkbook.PrecisionAsDisplayed = False
Calculate
End Sub

What additional code (&where) do I need to add to make above macro run
on all sheets in workbook i.e loop in all sheets
Thxs