How to Show Progress on Status Bar using VBA?

The below code will add serial numbers up to 500 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 500
Cells(icntr, 1) = icntr
Application.StatusBar= " Please wait while printing the numbers " ; Round((icntr/ 500 * 100), 0) ; "%"
Next 
Application.StatusBar= ""
End Sub

Explore extensive VBA Automation Course here, to automate your routine Excel Reports, Processes and Tasks using Microsoft Excel VB Programming.

Happy Excelling
Team Excelgoodies