Need Macro to show "Completed" note after calculation are finished

[maheshrk81]

Hi Team,
I need Macro to show "Completed" note after Excel calculations are finished. In my below code, the Pop-up is showing immediately before the excels calculation are completed.

Sub Data()
Application.Calculation = xlManual
Application.ScreenUpdating = False
Call Data1
Call Data2
Application.Calculation = xlAutomatic

MsgBox "Data Updated"
End Sub

Thanks & Regards,
Mahi

 

[ISY]

Hi

Sub WaitUntilFinishedLoop()
'Loop until all your calculations are done
Application.Calculate 'Optional - recalculates all formulas
Do Until Application.CalculationState = xlDone
    DoEvents
Loop
'~~> Rest of your code goes here
End Sub