Not quite

Sub RefreshCalculate()
Dim sh As Worksheet
ActiveWorkbook.PrecisionAsDisplayed = False
For Each sh In ActiveWorkbook.Worksheets
sh.Cells.Replace What:="=", Replacement:="="
Next sh
Application.MaxChange = 0.001
Calculate
End Sub


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"access" wrote in message
...
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