Issue with Charts

[Devil]

I have got numerous charts embedded in a single sheet along with data. Now i need to move this one by one into multiple sheets.

The problem am facing is below.

I am pressing F11 and inserting a blank chart sheet. Then am coming back to my worksheet selecting the graph, right clicking and select location, insert as object in Chart1.

As soon as i do this am getting error that "Microsoft Office Excel has encountered a problem and needs to close. We are sorry for the inconvenience."

Mine is Excel 2003. Any help to resolve this will be highly appreciated.

 

[Tom Urtis]

You are going about this in a way I would not. ChartObject objects on worksheets are a different object type than Chart objects which are charts on chart sheets. Consider simply selecting any cell in the source data range and hitting F11.

 

[Tom Urtis]

BTW if there are "numerous charts" as you say on a single sheet, this macro would do the job quickly. The Activate and Select methods are important inclusions for this task if anyone is wondering why I have them in here.

Sub MoveCharts()
Application.ScreenUpdating = False
Dim i%, asn$
With ActiveSheet
asn = .Name
For i = Sheets(asn).ChartObjects.Count To 1 Step -1
Sheets(asn).Activate
Range("A1").Select
.ChartObjects(i).Activate
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Chart" & i
Next i
End With
Application.ScreenUpdating = True
End Sub

 

[Devil]

Thanks Tom for your quick reply.

Though the issue that I reported still perists. Its not happening in all sheets, its only a particular sheet. Investigating what's wrong with that..

Meanwhile, i will give ur macro a try and revert.

Thanks again for your valuable feedback.