With Application
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
End With