can't move chart to new worksheet
 

I am creating a an embedded chart and then move it to another worksheet that
would contain all my charts.

After I create the chart I want to move it to another sheet. here is my code:

ActiveSheet.ChartObjects("chart1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlMaximized
Sheets("charts").Select
Range("A1").Select
ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)",
Link:=False _
, DisplayAsIcon:=False

It gives me an error indicating that it can't find the charts object
property of the worksheet class.