Activate method of chart object failed

I have the following code to populate a chart with several named ranges as the source. However when I share the workbook I get the following message from all of the button macros. Is there another way I can call the chart in the macro??

Sub Button3_Click()

Dim cht As ChartObject
Dim rng As Range

ActiveSheet.ChartObjects("Chart 1").Activate
    With ActiveChart
            .ChartArea.Select
            .SetSourceData Source:=Range("=CHART_01"), PlotBy:=xlRows
            .HasTitle = True
            .ChartTitle.Text = "FUEL CONSUMPTION 01/02 TRUCKS"
            .SeriesCollection(1).XValues = "=Sheet2!TITLES"

    End With



End Sub

Any help appreciated, rgds nigel