Excel: Update Formatting

Sub UpdateFormatting()

    For Each Sheet In ThisWorkbook.Sheets

        Sheet.EnableFormatConditionsCalculation = True

    Next

    For Each Sheet In ThisWorkbook.Sheets

        Sheet.EnableFormatConditionsCalculation = False

    Next

End Sub