Ha, SendKeys. Last refuge of the desperate. When I said hack into Rob's
utility, I meant look for code you can borrow for your own program.

I would use a different approach. Determine which range will be used to
label which series in the chart. Use the various pivot table ranges
(TableRange1 and 2, ColumnRange, RowRange, DataBodyRange, DataLabelRange,
etc.) and whatever other tricks you need. Then finally, iterate through the
points in the series, get the text from the corresponding cell in the range,
and apply one to the other. Something like this excerpt from something I did
a while back:

Dim rngSource As Range

Dim dlTarget As DataLabel

Dim iPtsCt As Integer

Dim iPtsIx As Integer

For iPtsIx = 1 To iPtsCt

   Set rngSource = ActiveSheet.Range("RangeName") _

       .Offset(iPtsIx - 1, 0).Resize(1, 1)

   Set dlTarget = ActiveSheet.ChartObjects(1) _

       .Chart.SeriesCollection(1).DataLabels(iPtsIx)

   dlTarget.Text = rngSource.Value

Next

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______