Pie Charts

Example uses:

ActiveSheet.Shapes.AddChart(xlPie ).Chart

.ChartType = xlPieExploded