my $range = "A1:C49";
my $sheet = $workbook -> Worksheets("Graph");
$sheet -> Activate();
my $chart = $sheet -> ChartObjects("Chart 1");
$chart -> Activate();
# $chart -> SeriesCollection(1)->Select();
$chart->SetSourceData({Source => $sheet, Range => $range, PlotBy => xlColumns});

##</code><code>##

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 14/10/2004
'

'
    Sheets("Graph").Select
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SetSourceData Source:=Sheets("Data").Range("A1:C49"), PlotBy:= _
        xlColumns
End Sub