modificar fuente de datos de un grafico

[alfa18]

hola amigos,

estoy intentando modificar la fuente de datos de un grafico, copiado desde otra hoja del libro, con una macro:

Código vb:

Sub grafico()
 
Sheets(1).ChartObjects(1).Copy
Sheets(2).Select
Cells(4, "E").Select
ActiveCell.PasteSpecial
 
ActiveSheet.ChartObjects(1).Activate      ' *** ERROR ***
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData (Range("A1:B6"))
 
End Sub
 

Todo va bien hasta que copia el grafico de una hoja a otra, pero a la hora de seleccionarlo para cambiar el origen de datos me da error ¿alguien me puede ayudar con este codigo?

saludos foreros :)