Macro To AutoScale Charts By Chart Name?

I have a code for auto scaling charts, but I'm looking for a slight tweak to improve its performance. Here is the code:

Public Sub ChartScale()With ActiveChart.Axes(xlValue).MinimumScale = Range("J152").MaximumScale = Range("J153")End WithEnd Sub
(where J152 and J153 are the cells being used to scale the chart)

What happens is that I create a macro button, and then have to select a specific chart, then press the button to scale it. I have 2 main questions I'm trying to have answered to improve this process:

1) Is there a way to make this process automatic (i.e. no button press required)? The chart would autoscale automatically upon the min and max number changing.

2) And more importantly, can I specify the macro to an individual chart instead of the active one? For example, I'd like 4 charts on one sheet to all have their own auto scaling being performed. So, in the above code, the chart uses cells J152 and J153 for the scaling. I'd like the others to use other cells for the scaling. Cells J152 and J153 would auto scale chart "Name 1", cells K152 and K153 would autoscale Chart "Name 2", and so forth for 4 charts.