Need to specify chart for rescaling as opposed to All charts in worksheet.

[pbinvestor]

I use the following routine to scale a chart the way I want to display it
The routine that I "borrowed" however operates on all chart objects in the worksheet.
How do I change the code to only operate on "Chart 6" but leave other charts untouched.

Thanks in advance.

Sub Format_charts()
Dim objCht As ChartObject
For Each objCht In ActiveSheet.ChartObjects
With objCht.Chart
With .Axes(xlValue)
.MaximumScale = ActiveSheet.Range("v18").Value
.MinimumScale = ActiveSheet.Range("u18").Value
' .MajorUnit = ActiveSheet.Range("Unit").Value
End With
End With
Next objCht
End Sub

 

[healey21]

Try this:

Sub Format_charts()
With ActiveSheet.ChartObjects("Chart 6").Chart.Axes(xlValue)
.MaximumScale = Range("v18").Value
.MinimumScale = Range("u18").Value
End With
End Sub

 

[pbinvestor]

How elegant (and obvious now that you showed me how!)
Thanks so much.

I tried to do the same thing with the y axis using "u1005" and "v1005" as the category variables but got runtime error 13 "type mismatch"

With ActiveSheet.ChartObjects("Chart 6").Chart.Axes(xlCategory)
.MaximumScale = ActiveSheet.Range("U1005").Value
.MinimumScale = ActiveSheet.Range("V1005").Value

End With