Application.Screenupdating=False when "Find&Replace" is used

Like this:

Sub Example()

    On Error GoTo ErrorHandler
    Application.ScreenUpdating = False

    ' find/replace code

CleanExit:
    Application.ScreenUpdating = True
    Exit Sub

ErrorHandler:
    MsgBox Err & " - " & Err.Description
    Resume CleanExit

End Sub

Dom