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.