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