how I change this macro code

[daniboymu]

I want to change this macro code to a especifically chart,could someone please help me out.
This macro changes all the charts on the spreadsheet but I want to change to only one especifically chart on the spreadsheet
(Chart 5)

Sub rescale()
For Each cht In ActiveSheet.ChartObjects
With cht.Chart
.Axes(xlValue).MaximumScale = ActiveSheet.Range("AF11").Value
 .Axes(xlValue).MinimumScale = ActiveSheet.Range("AF10").Value
 .Axes(xlValue).MajorUnit = ActiveSheet.Range("AF6").Value
   End With
Next cht
End Sub

 

[MARK858]

Maybe...

Sub rescale()

    With ActiveSheet.ChartObjects("Chart 5").Chart
        .Axes(xlValue).MaximumScale = ActiveSheet.Range("AF11").Value
        .Axes(xlValue).MinimumScale = ActiveSheet.Range("AF10").Value
        .Axes(xlValue).MajorUnit = ActiveSheet.Range("AF6").Value
    End With

End Sub

 

[daniboymu]

Maybe...

Sub rescale()

    With ActiveSheet.ChartObjects("Chart 5").Chart
        .Axes(xlValue).MaximumScale = ActiveSheet.Range("AF11").Value
        .Axes(xlValue).MinimumScale = ActiveSheet.Range("AF10").Value
        .Axes(xlValue).MajorUnit = ActiveSheet.Range("AF6").Value
    End With

End Sub

thank you!!!