ecco un esempio:
- Codice: Seleziona tutto
...
Application.ScreenUpdating = False
MsgBox("GIORNATA NON ANCORA COMPLETATA" & Chr(13) & " Vuoi aggiornare lo stesso i grafici?", vbYesNo, "Finestra di Scelta")
If Risposta = vbYes Then
call aggiorna_grafici
MsgBox "Aggiornati grafici", Title:="Bravo"
Application.ScreenUpdating =true
...
grazie