There should be no error in that line. Perhaps it is NOT the active sheet?
Is sheet(8) also Graph? The sheet does NOT have to be active.

Worksheets("Data").Range("A4:C4"). _
Copy Worksheets("Graph").Range("A2:C2")
Worksheets(8).ChartObjects(1). _
Chart.Axes(claque).MinimumScale = 0

--
Don Guillett
SalesAid Software

"Marc" wrote in message
...
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).Mi nimumScale = 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).Mi nimumScale = 0

If someone can help.

Thanks in advance