You still need to Select the sheet.
For Each MySheet In Worksheets
MySheet.Select
Cells.Select
Selection.Replace What:="=", Replacement:="="
Application.MaxChange = 0.001
ActiveWorkbook.PrecisionAsDisplayed = False
Calculate
Next
--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
"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