With Application
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True
    End With