reset trendlines in

[cogswel__cogs]

Hi,
Was hoping to add a reset button for trendlines in a pivot chart.
Can anyone tell me what I am doing wrong here.
As any help is greatly apprciated.

Sub AddTrendLine()
Dim mySeriesCol As SeriesCollection

Set mySeriesCol = ActiveSheet.ChartObjects(1).Chart.SeriesCollection


'This gets rid of any old trendlines.
For i = 1 To mySeriesCol.Count
If mySeriesCol(i).Name <> "CY" And mySeriesCol(i).Trendlines.Count > 0 Then
mySeriesCol(i).Trendlines(1).Delete
End If

'This adds new trendline.
If mySeriesCol(i).Name <> "CY" Then
mySeriesCol(i).Trendlines.Add
mySeriesCol(i).Trendlines.Select
With Selection.Format.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
End With

'mySeriesCol(i).Trendlines.Format.Line.ForeColor.RGB = RGB(255, 0, 0)
'mySeriesCol(i).Trendlines.Format.Line.Weight = 3
End If

Next
End Sub