por si a alguien le interesa ya encontre la respuesta, exisitia un pequeño error en el codigo:
newchart.SetData Co.chDimSeriesNames, 0, chPivotColAggregates
newchart.SetData Co.chDimCategories, 0, Co.chPivotRowAggregates
For n = 0 To newchart.SeriesCollection.Count - 1
newchart.SeriesCollection(n).SetData Co.chDimValues, 0, 0
newchart.SeriesCollection(n).SetData Co.chDimValues, 0, 0
Next
tenia que recorres cada una de las series para que mostraran el valor en el chart.
Cualquier pregunta a la orden