Show Progress on Status Bar

Show Progress on Status Bar

By using this macro you can show the progress of a macro code on the status bar. This code will add serial numbers up to 5000 in your sheet and along with it will show progress on the status bar.Sub progressStatusBar()
Application.StatusBar= "Start Printing the Numbers"
For icntr= 1 To 5000
Cells(icntr, 1) = icntr
Application.StatusBar= " Please wait while printing the numbers " & Round((icntr/ 5000 * 100), 0) & "%"
Next
Application.StatusBar= ""
End Sub