Buongiorno,

all'interno di una macro ho queste semplici istruzioni:

   Call X_TIME_SET("M_RESET_1")
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

If UCase(Left(Cells(23, "F"), 1)) <> "NO" Then
    Cells(23, "F") = "SI"
End If
If UCase(Left(Cells(23, "C"), 1)) = "Q" Then
    Cells(23, "C") = "Quantità'"
Else
    Cells(23, "C") = ""
End If

If Cells(42, "H") = 0 Then
    Cells(42, "H") = ""
End If

If Cells(42, "H") = "" Then
    Cells(44, "H") = ""
End If

If Cells(46, "I") = 0 Then
    Cells(46, "I") = ""
End If
    Call X_TIME_SET("M_RESET_2")

Questa è la sub X_TIME_SET:

Sub X_TIME_SET(ByVal MSG As String)
'
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    RIG = Cells(1, "EA")
    Cells(RIG, "EA") = Now
    Cells(RIG, "ED") = MSG
    Cells(1, "EA") = Cells(1, "EA") + 1
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

per eseguire le istruzioni dal punto M_RESET_1 al punto M_RESET_2 ci vogliono 7 secondi ... farei prima a mano!

Che posso fare?

Grazie!