The bar I want is just a little blue bar moves right and left and repeats till the update is done, no percentage needed.
I know I should use the In the past, with VBA projects, I've used a label control with the background colored and adjust the size based on the progress.
Some examples with similar approaches can be found in the following links: Dim x As Integer Dim My Timer As Double 'Change this loop as needed. Status Bar = "Progress: " & x & " of 50: " & Format(x / 50, "0%") Next x Application.
Status Bar = False Here's another example using the Status Bar as a progress bar.
In some pivot tables, you might want to prevent people from selecting the "(All)" option in a Report Filter. Name int PI = 1 'get the current item number For Each pi In pf. If you select a different Quarter, the Months filter automatically changes to "(All)".
In this example, the worksheet has Get Pivot Data formulas that refer to a Report Filter cell. Undo Msg Box "Please select a single date." End If Next pf End If exit_Handler: Set pf = Nothing Application. Screen Updating = True End Sub To test the code, select (All) from the Order Date report filter's drop-down list. When you select an item from a report filter's drop-down list, the Pivot Table Update event is triggered. This code is stored on the sheet module for the worksheet on which the pivot table is located.
If you close the toolbar by clicking the X, it will disappear again.
This will cause the function to be executed whenever a calculation occurs in the workbook.