Add SeriesCollection

[black_sun]

Hi to all,
and here I am again to ask an help.

I have an empty datasheet and I would like to insert some
seriescollection (the numer dipends from a previous selection).

Here is the code:

ppSlide.Shapes("Object 10").Select
ppSlide.Shapes("Object 10").OLEFormat.DoVerb Index:=0
' ppPres.Slides(numSlide).Shapes("Object
5").OLEFormat.Object.Application.DataSheet.Cells(1, 2).Paste
' ppSlide.Shapes("Object 10").OLEFormat.Object.ChartType = xl3DPie

For i = 2 To 15
ppSlide.Shapes("Object
10").OLEFormat.Object.SeriesCollection.NewSeries <------- Here is not
working
ppSlide.Shapes("Object
10").OLEFormat.Object.SeriesCollection(i).ChartType = xlColumnStacked
Next

Where do I do a mistake?

Thanks in advance.

Cheers
Denis