Hi All,
I have the following code that enlarges and reduces the size of a named chart
Sub AccidentBodyPartTrend1()
Dim ws As Worksheet
Dim chto As ChartObject
Dim rSmall As Range, rBig As Range
Static b As Boolean
Set chto = Worksheets("Dashboard").ChartObjects("Bodybarall")
Set rSmall =...