Show Progress Bar while code is running

[kshines]

Wise people of the forum...

Looking for a little help. What code would need to be added to the VBA below to show a progress bar that the macro is still active and running?

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Target.Worksheet.Range("T2")) Is Nothing Then Mix_Calculation
If Not Intersect(Target, Target.Worksheet.Range("C2")) Is Nothing Then Mix_Calculation
If Not Intersect(Target, Target.Worksheet.Range("C3")) Is Nothing Then Mix_Calculation
If Not Intersect(Target, Target.Worksheet.Range("C4")) Is Nothing Then Mix_Calculation
If Not Intersect(Target, Target.Worksheet.Range("C5")) Is Nothing Then Mix_Calculation

End Sub


Thanks in advance!!

KH

 

[alansidman]

https://www.excel-easy.com/vba/examples/progress-indicator.html