Moving Charts in Macros

Hi All,

Im having a problem when moving charts within a macro. I am sure this question has been asked before but I cant find the answer on search?

Basically I have used a macro to create a chart, but I then want the chart to always display in the same place on the excel sheet.

Everytime I run the macro it is looking to move eg 'Chart14' which now no longer exsists because when I create a new chart it defaults the name to Chart15... is this correct?

Any help is appreciated!

Alex



---------------------
Sub Table()
'
' Table Macro
' Macro recorded 04/03/2014 by researcher1
'

'
Range("J6:J10").Select
Charts.Add
ActiveChart.ChartType = xlDoughnut
ActiveChart.SetSourceData Source:=Sheets("Data").Range("J6:J10"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Data"
ActiveChart.HasLegend = False
ActiveSheet.Shapes("Chart 45").IncrementLeft -285.75
ActiveSheet.Shapes("Chart 45").IncrementTop -177#
ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Chart 45").ScaleWidth 0.68, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes("Chart 45").ScaleHeight 0.68, msoFalse, msoScaleFromTopLeft
ActiveWindow.Visible = False
Windows("New Table.xls").Activate
Range("A4").Select
End Sub