Pivot Chart with VBA

[TamirBasin]

Hello,

I recorded then altered the following code to create a pivot chart:

Sub CreatePivotChart()
    
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnStacked
    ActiveChart.SetSourceData Source:=Sheets("PivRetained").Range("A3:F34")
    ActiveChart.Location Where:=xlLocationAsObject, Name:="PivRetained"
    ActiveChart.Name = "Active Hires By Performance 2015" ' Here I get the error

End Sub

I get an error when I try to give the chart a name.

where is my mistake?

Thank you,
Tamir

 

[Caleeco]

Hello Tamir,

Are you trying to change the chart name? or the displayed title ON the chart?

Caleeco

 

[TamirBasin]

The name of the chart.

Tamir

 

[Caleeco]

Provided you have one chart on the sheet, this will do:

Sub PC_Name()    ActiveSheet.ChartObjects(1).Name = "Active Hires By Performance 2015"
End Sub

If you have more than one sheet, you would just need to pull the chart name of the newly created chart and adjust code accordingly.

Cheers
Caleeco

 

[TamirBasin]

I do have more than one chart on the sheet.
How do I assign a name to the chart that was just created?
See please this code:
What should I do to fix it?
Sub CreatePivotChart()
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnStacked
ActiveChart.SetSourceData Source:=Sheets("PivRetained").Range("A3:F34")
ActiveChart.Name = "Active Hires By Performance 2015" ' Here I get the error
End Sub