VBA Set chart axis min and max based on a cell value

[willow1985]

I have been looking for a VBA function that references 2 cells for my Min and Max Bound values and resets the units after the new Min and Max values are put in.

I have found codes online but the problem is I have 5 charts that I want to do this to and have no idea where to even start modifying these codes. Charts are not my strong suit.

Any help would be greatly appreciated!

Cart 1 is called: "CC"
Max value is located: Sheet: Graph Data, Cell: W17
Min value is located: Sheet: Graph Data, Cell: W18

Cart 2 is called: "Reprocess"
Max value is located: Sheet: Graph Data, Cell: AI40
Min value is located: Sheet: Graph Data, Cell: AI41

Cart 3 is called: "Additional"
Max value is located: Sheet: Graph Data, Cell: AO40
Min value is located: Sheet: Graph Data, Cell: AO41

Cart 4 is called: "DTQ"
Max value is located: Sheet: Graph Data, Cell: AX31
Min value is located: Sheet: Graph Data, Cell: AX32

Cart 5 is called: "TAT"
Max value is located: Sheet: Graph Data, Cell: BA31
Min value is located: Sheet: Graph Data, Cell: BA32

Thank you

 

[willow1985]

I figured it out.

' RefreshGraphs Macro
ActiveSheet.ChartObjects("CC").Activate
With Application.ActiveChart.Axes(xlValue, xlPrimary)
.MinimumScale = Sheets("Graph Data").Range("W18").Value
.MaximumScale = Sheets("Graph Data").Range("W17").Value
End With
ActiveSheet.ChartObjects("Reprocess").Activate
With Application.ActiveChart.Axes(xlValue, xlPrimary)
.MinimumScale = Sheets("Graph Data").Range("AI41").Value
.MaximumScale = Sheets("Graph Data").Range("AI40").Value
End With
ActiveSheet.ChartObjects("Additional").Activate
With Application.ActiveChart.Axes(xlValue, xlPrimary)
.MinimumScale = Sheets("Graph Data").Range("AO41").Value
.MaximumScale = Sheets("Graph Data").Range("AO40").Value
End With
ActiveSheet.ChartObjects("DTQ").Activate
With Application.ActiveChart.Axes(xlValue, xlPrimary)
.MinimumScale = Sheets("Graph Data").Range("AX32").Value
.MaximumScale = Sheets("Graph Data").Range("AX31").Value
End With
ActiveSheet.ChartObjects("TAT").Activate
With Application.ActiveChart.Axes(xlValue, xlPrimary)
.MinimumScale = Sheets("Graph Data").Range("BA32").Value
.MaximumScale = Sheets("Graph Data").Range("BA31").Value
End With

End Sub