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