Help in Excel vba pivot charts !!!!

[adr12345]

I am getting error at line , Method 'SetSource data' of Object' _Chart'failed

oChart2.SetSourceData Source:=PT2.TableRange1


I have used this code in previous codes and it was working perfectly fine.


Dim oChart2 As chart
Set oChart2 = PT2.Parent.Shapes.AddChart(XlChartType:=xlBar).chart
oChart2.SetSourceData Source:=PT2.TableRange1



Help required!!!

 

[adr12345]

Problem here is chart is not taking pivot reference as source.