Gene
la label di rimando
esci:
deve essere posta prima di:
Application.Calculation = xlCalculationAutomatic
quindi:
......
.....
ActiveSheet.Shapes("NewS").Delete
esci:
Application.Calculation = xlCalculationAutomatic
Exit Sub
errori:
MsgBox Err.Number & " - " & Err.Description
Resume esci
End Sub Altrimenti in caso di errore ti resta il calcolo manuale
sorry.....
saluti
Domenico
Win 10 - Excel 2016