Hi,

I am getting an error "unable to set axis group property of the series class". I am trying to create a excel worksheets using vb script.

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open ("C:\Report.xls")
Set objWorksheet = objWorkbook.Worksheets("Data")
objExcel.DisplayAlerts = False
rowNumber = 2
Do While Not objRecordset.EOF
For i= 1 to objRecordset.Fields.Count
objWorksheet.Cells(rowNumber,i).Value = objRecordset.Fields.Item(i - 1)
Next
objRecordset.MoveNext
rowNumber = rowNumber + 1
Loop
Set objWorksheet3 = objWorkbook.Worksheets("Failure Report")
objWorksheet3.PivotTables(1).RefreshTable
Set objWorksheet4 = objWorkbook.Worksheets("Response Report")
objWorksheet4.PivotTables(1).RefreshTable
Set objWorksheet5 = objWorkbook.Worksheets("Failure Graph")
objWorksheet5.ChartObjects(1).Chart.SeriesCollecti on(8).AxisGroup = 2 'xlSecondary
objWorksheet5.ChartObjects(1).Chart.SeriesCollecti on(8).ApplyDataLabels
Set objWorksheet6 = objWorkbook.Worksheets("Response Graph")
objWorksheet6.ChartObjects(1).Chart.SeriesCollecti on(1).AxisGroup = 2 'xlSecondary
objWorksheet6.ChartObjects(1).Chart.SeriesCollecti on(1).ApplyDataLabels
objWorkbook.SaveAs(strXLFileName)
objWorkbook.Close True

I am getting this error at the line in bold.

Please anyone help??