Altering data labels on scatter chart

Hi,

I am writing some code to automatically change and update a scatter chart when a different selection is chosen from a combo box.

I have the chart updating the refences for each series but I now need to add data labels to each point and change them from value to text. The cell for the text is already selected in the data selection.

I have managed to add the data labels but have run into problems when I try to change it. I have used code from a macro I recorded and slightly adapted to fit what I need.

The code I have is;

Dim j as Integer
Do
ActiveSheet.ChartObjects("Chart 5").Activate
ActiveChart.SeriesCollection(j).Select
ActiveSheet.ChartObjects("Chart 5").Activate
ActiveChart.SeriesCollection(j).ApplyDataLabels
ActiveSheet.ChartObjects("Chart 5").Activate
ActiveChart.SeriesCollection(j).datalabels.Select
ActiveSheet.ChartObjects("Chart 5").Activate
**Selection.ShowValue = False
**Selection.ShowSeriesName = True

j = j + 1

Loop

Error occurs where I have put **.

Can anybody help??

Many Thanks!