I have multiple sheets and there is a single chart on each sheet. I
want to use this macro but not all charts are named Chart1. Is there a
way the macro can be made to work no matter what the chart name is?

Sub TestChart()
With ActiveSheet.ChartObjects("Chart 1").Chart.Axes(xlValue)
.MinimumScale = WorksheetFunction.Min(Range("B3:B17"))
.MaximumScale = WorksheetFunction.Max(Range("B3:B17"))
End With
End Sub

Why don't you just select the chart on each sheet and rename it, give them
all the same name.

--
__________________________________
HTH

Bob

"Fan924" wrote in message
...
I have multiple sheets and there is a single chart on each sheet. I
want to use this macro but not all charts are named Chart1. Is there a
way the macro can be made to work no matter what the chart name is?

Sub TestChart()
With ActiveSheet.ChartObjects("Chart 1").Chart.Axes(xlValue)
.MinimumScale = WorksheetFunction.Min(Range("B3:B17"))
.MaximumScale = WorksheetFunction.Max(Range("B3:B17"))
End With
End Sub

On Sep 30, 12:52*am, "Bob Phillips" wrote:
Why don't you just select the chart on each sheet and rename it, give them
all the same name.

I did think of that. I hane no idea how to rename a chart. How is it
done? Excel97

On Sep 30, 6:14*am, Fan924 wrote:
On Sep 30, 12:52*am, "Bob Phillips" wrote:

Why don't you just select the chart on each sheet and rename it, give them
all the same name.

I did think of that. I hane no idea how to rename a chart. How is it
done? Excel97

I found this and it tells me how to do it. Thanks Bob.
http://support.microsoft.com/kb/169882

If you are *sure* each sheet only has one chart
With ActiveSheet.ChartObjects(1).Chart.Axes(xlValue)
'etc

Otherwise go with Bob's suggestion
(to manually change a chartobject's name:
hold Ctrl+Shift, new name in the Names box left of input bar)

Regards,
Peter T


"Fan924" wrote in message
...
I have multiple sheets and there is a single chart on each sheet. I
want to use this macro but not all charts are named Chart1. Is there a
way the macro can be made to work no matter what the chart name is?

Sub TestChart()
With ActiveSheet.ChartObjects("Chart 1").Chart.Axes(xlValue)
.MinimumScale = WorksheetFunction.Min(Range("B3:B17"))
.MaximumScale = WorksheetFunction.Max(Range("B3:B17"))
End With
End Sub

You can also do it by holding down shift and then click the embedded chart
once. This has the advantage of the cursor changing to an arrow-headed
cross, good visual feedback.


--
__________________________________
HTH

Bob

"Fan924" wrote in message
...
On Sep 30, 6:14 am, Fan924 wrote:
On Sep 30, 12:52 am, "Bob Phillips" wrote:

Why don't you just select the chart on each sheet and rename it, give
them
all the same name.

I did think of that. I hane no idea how to rename a chart. How is it
done? Excel97

I found this and it tells me how to do it. Thanks Bob.
http://support.microsoft.com/kb/169882