VBA for Chart is failing in Excel 2007

[raj08536]

Following is working in Excel 2003 but not in 2007

ActiveSheet.ChartObjects("Chart 5").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Sheets("NewChart").Range _
("C65:Ax65,C71:Ax71"), PlotBy:=xlRows


Anybody please help me......

 

[VoG]

Maybe

ActiveSheet.ChartObjects("Chart 5").Chart.SetSourceData Source:=Sheets("NewChart").Range("C65:Ax65,C71:Ax71"), PlotBy:=xlRows

 

[raj08536]

VoG - you rocks......

Now the following code is crashing - specially at " ActiveChart.SeriesCollection(2).Select"

ActiveSheet.ChartObjects("Chart 5").Activate
ActiveChart.SeriesCollection.Paste Rowcol:=xlRows, SeriesLabels:=True, _
CategoryLabels:=False, Replace:=False, NewSeries:=True
Application.CutCopyMode = False

ActiveChart.SeriesCollection(2).Select
ActiveChart.SeriesCollection(2).ChartType = xlColumnClustered
ActiveChart.SeriesCollection(2).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
Selection.Shadow = False
Selection.InvertIfNegative = False
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
ActiveWindow.Visible = False

 

[VoG]

Maybe like this

With ActiveChart.SeriesCollection(2)
    .ChartType = xlColumnClustered
    With .Border
        .Weight = xlThin
        .LineStyle = xlAutomatic
    End With
    .Shadow = False
    .InvertIfNegative = False
    With .Interior
        .ColorIndex = 3
        .Pattern = xlSolid
    End With
End With