Pivot Table - Change / Format Legend Names
 

I created a pivot table graph. I have a ranking field that appear
concatenated like
{color} 1 - Confused
{color} 2 - Ugh

I need to change to
{color} Confused
{color} Ugh

Using this code below, I can format the string but the Name is not
updating

Dim m as Integer
Dim strmk As String
Dim iLen As Integer

For m = 1 To ActiveChart.SeriesCollection.Count
iLen = Len(ActiveChart.SeriesCollection(m).Name)
strmk = (Mid(ActiveChart.SeriesCollection(m).Name, 4,
iLen))
ActiveChart.SeriesCollection(m).Name = "bob"
Next m

Pivot Table - Change / Format Legend Names
 

Excel 2007 PivotTable, PivotChart
Change the PT data headers instead:
Sub NameChange()
Dim s As String
Dim n As Integer
With ActiveSheet.PivotTables(1)
For n = 1 To .DataFields.Count
s = .DataFields(n).Name
s = Replace(s, "Sum of ", "_")
..DataFields(n).Name = s
Next n
End With
End Sub