Hi All,

I have the following macro that unhides a pivot table, refreshes the data and hides it again in order to update a pivot chart based on a keyboard shortcut (Ctrl + J). What I've noticed if I do it on the first day, the chart expands to bigger than the screen, but when I do the same thing on the second day it reverts back to the original size, and so on... Is there anything I can add to my code to ensure that the pivot charts do not change size when the macro is run?

Here is the code:

Sub refresh()
'
' refresh Macro
'
' Keyboard Shortcut: Ctrl+j
'
    
 Application.ScreenUpdating = False
 
 
    Cells.Select
    Range("A59").Activate
    Selection.EntireRow.Hidden = False
    Range("A40").Select
    ActiveSheet.PivotTables("PivotTable4").PivotCache.refresh
    ActiveWindow.SmallScroll Down:=12
    Rows("1:58").Select
    Range("A58").Activate
    Selection.EntireRow.Hidden = True
    
Application.ScreenUpdating = True


End Sub
Thanks in advance for any suggestions!