Trying to select only one chart rather than all charts on spreadsheet - Help VBA coding

[Chapers]

Sub MarginChart()
Dim Cht As ChartObject
For Each Cht In ActiveSheet.ChartObjects
Cht.Chart.ChartArea.AutoScaleFont = False
Cht.Height = Application.CentimetersToPoints(3.57)
Cht.Width = Application.CentimetersToPoints(5.81)
ActiveChart.Axes(xlValue).TickLabels.Font.Size = 7
ActiveChart.Axes(xlCategory).TickLabels.Font.Size = 7
ActiveChart.ChartArea.Border.LineStyle = xlNone

Next Cht

End Sub

[Kaper]

Hi and welcome to the forum.

1) Please read our http://www.excelforum.com/forum-rule...rum-rules.html and observe them. Now edit your post using code tags.

2) In presented code, VBA loops through all chartobjects. If you want to use just one - use it's number or name or somehow select just one.

for instance try:

Please Login or Register  to view this content.

[Chapers]

Thanks for your help Kaper. Im new to VBA and just trying to find would be very useful, would love to crack this.

I entered your code but get an error with Cht.Axes (xlValue).TickLabels.Font. Size = 7 this is highlighted in yellow

[Kaper]

Please do what I suggested in p.1 above (editing+code tags).
Then note that problematic line comes from your code.