“Excel VBA Force Recalculação” Respostas de código

Excel VBA Force Recalculação

'VBA routine to force the workbook to recalculate:

Sub ForceCalc(Optional Full As Boolean)
    With Application
        .Calculation = xlCalculationManual
        .Calculation = xlCalculationAutomatic
    	If Full Then .CalculateFull
    End With
End Sub