%Progress bar for calling other macros?

[Fabulist]

Hello,

I have a sub that calls multiple other macros that mainly hide, clear and adjust rows as well as copy paste certain areas to others.

Sub Hide_And_Adjust()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Application.EnableEvents = False

    Call Sheet3.Hide_Rows
    Call Sheet4.Hide_Rows
    Call Sheet5.Hide_Rows
    Call Sheet6.Hide_Rows
    Call Sheet6.Hide_Columns_Execution
    Call Sheet7.Hide_Rows
    Call Sheet8.Hide_Rows
    Call Sheet9.Hide_Rows
    Call Sheet10.Hide_Rows
    Call Sheet11.Hide_Rows
    Call Sheet12.Hide_Rows
    Call Sheet13.Hide_Rows
    Call Sheet14.Hide_Rows
    Call Sheet15.Hide_Rows
    Call Sheet16.Hide_Rows
    Call Sheet17.Hide_Rows
    Call Sheet18.Hide_Rows
    Call Sheet18.Hide_Columns_Execution
    Call Sheet19.Hide_Rows
    Call Sheet19.Hide_Columns_Execution
    Call Sheet20.Hide_Rows
    Call Sheet21.Hide_Rows
    Call Sheet22.Hide_Rows
    Call Sheet23.Hide_Rows
    Call Sheet24.Hide_Rows
    Call Sheet25.Hide_Rows
    Call Sheet26.Hide_Rows
    Call Sheet27.Hide_Rows
    Call Sheet27.Hide_Columns_Execution
    Call Sheet28.Hide_Rows
    Call Sheet28.Hide_Columns_Execution
    Call Sheet29.Hide_Rows
    Call Sheet30.Hide_Rows
    Call Sheet30.Hide_Columns_Execution
    Call Sheet31.Hide_Rows
    Call Sheet31.Hide_Columns_Execution
    Call Sheet32.Hide_Rows
    Call Sheet33.Hide_Rows
    Call Sheet34.Hide_Rows
    Call Sheet35.Hide_Rows
    Call Sheet36.Hide_Rows
    Call Sheet37.Hide_Rows
    Call Sheet37.Hide_Columns_Execution
    Call Sheet38.Hide_Rows
    Call Sheet39.Hide_Rows
    Call Sheet40.Hide_Rows
    Call Sheet41.Hide_Rows
    Call Sheet42.Hide_Rows
    Call Sheet42.Hide_Columns_Execution
    Call Sheet43.Hide_Rows
    Call Sheet45.Hide_Rows
    Call Sheet46.Hide_Rows
    Call Sheet47.Hide_Rows
    Call Sheet48.Hide_Rows
    Call Sheet49.Hide_Rows
    Call Sheet51.Hide_Rows
    Call Sheet52.Hide_Rows
    Call Sheet53.Hide_Rows
    Call Sheet55.Hide_Rows
    Call Sheet56.Hide_Rows
    Call Sheet58.Hide_Rows
    Call Sheet58.Hide_Columns_Execution
    Call Sheet60.Hide_Rows
    Call Sheet61.Hide_Rows
    Call Sheet61.Hide_Columns_Execution
    Call Sheet62.Hide_Rows
    Call Sheet63.Hide_Rows
    Call Sheet64.Hide_Rows
    Call Sheet64.Hide_Columns_Execution
    
    Application.Wait (Now + TimeValue("0:00:01"))
    Call Sheet63.Linked_Picture_Paste
    Application.Wait (Now + TimeValue("0:00:01"))
    Call Sheet51.Linked_Picture_Paste
    
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.EnableEvents = True
End Sub

Would it be possible to create a percentage-based progress bar for this entire process and maybe even show which "Call" it is currently performing?

 

[Fluff]

Have a look here http://www.andypope.info/vba/pmeter.htm

 

[Fabulist]

Have a look here http://www.andypope.info/vba/pmeter.htm

Thanks, I have also found a number of articles, such as:

https://strugglingtoexcel.com/2014/09/22/class-progress-bar-excel-vba/comment-page-2/

http://spreadsheetpage.com/index.php/tip/displaying_a_progress_indicator/

https://www.myonlinetraininghub.com/excel-progress-bar-for-vba

http://learnexcelmacro.com/wp/2012/02/progressbar-in-excel-vba/

https://wellsr.com/vba/2017/excel/beautiful-vba-progress-bar-with-step-by-step-instructions/

However, I am unable to understand how to implement the "calls" and properly adjust completion % on said bars. I have especially tried with the first link, which features a sub-bar, but failed.

 

[Fabulist]

I still haven't figured this out after numerous retries, my understanding is limited on the subject.

 

[Fluff]

As it's not something I've ever done, especially with multiple calls, I'm afraid I cannot help.
Hopefully somebody else will be able to help.