Max/min chart auto-scale

I have been looking for a code that will automatically set the max and min scale on pivot chart but have had no luck without actually having to reference a cell or range. I found the code below off a forum, which works great setting the max scale. Basically, I am trying to set the max and min Y axis values to the largest and smallest numbers in my chart, which has 4 series. Any help would be greatly appreciated.

Please Login or Register  to view this content.

Great that works! Thank you Kaper! Now that it can do this, how can i alter the code to loop through all the pivotcharts in my workbook?