>ok, I give up. I can't get this part to run. It fails in the
>"SeriesCollection(1).ApplyDataLabels.Type=3"
>saying it does not evaluate to an object.

ApplyDataLabels is a method that takes up to four parameters, only the first of which is usually used. The first parameter is the Type parameter. Try:

oBook.ActiveChart.SeriesCollection(1).ApplyDataLabels(3)

Even better, use #DEFINES to make sense of VBA's constant names, which makes your code easier to read when you need to maintain it:

#DEFINE xlDataLabelsShowPercent 3
oBook.ActiveChart.SeriesCollection(1).ApplyDataLabels(xlDataLabelsShowPercent)

Hope this helps.

- della