I have this code with button on click event and it doesn't work.

Worksheets("Data").Range("A4:C4").Copy
ActiveSheet.Paste Destination:=Worksheets("Graph").Range("A2:C2")
Worksheets(8).Activate

ActiveSheet.ChartObjects(1).Chart.Axes(xlValue).MinimumScale = 0
Application.CutCopyMode = False

This is only chart in workbook.

Error is in line (highlights this line when running code)
ActiveSheet.ChartObjects(1).Chart.Axes(xlValue).MinimumScale = 0

If someone can help.

Thanks in advance