MsgBox 确认运行结束

如何解决MsgBox 确认运行结束

我想在运行结束时插入一个 MsgBox 以通知脚本已完成。 使用此代码，即使运行仍在进行，我也会收到消息。 有人可以帮我吗？

提前致谢

Sub UPDATE_db_pivot() 'Variable Declaration
        MsgBox "Ricorda di aggiornare le date del 'Periodo di Osservazione' presenti nel foglio 'Cover'",vbExclamation
        ActiveWorkbook.RefreshAll
        Sheets("DIREZIONE Summary").Select
        ActiveWindow.SmallScroll Down:=-15
        Range("C85").Select
        ActiveWorkbook.RefreshAll
        Sheets("PRB_DataBase").Select
        Cells.Select
        Cells.EntireColumn.AutoFit
        Range("E270").Select
        MsgBox "Aggiornamento completato!",vbinformation 
End Sub

解决方法

解决了取消选中后台刷新数据以禁用它的问题。