
With Application 'da inserire subito prima della chiamata di Macro2
.ScreenUpdating = False
.Calculation = xlManual
End With
With Application 'da inserire subito prima della End Sub di Macro2
.ScreenUpdating = True
.Calculation = xlAutomatic
End With
|
