Method 'SeriesCollection' of object '_chart' failed

[xSteveGx]

Hi guys I'm getting an error when it reaches

ActiveChart.SeriesCollection(j).XValues = "=(" & Chart1XVal & ")"

i dont think its related to the variable range being passed as it's in a valid format when i MsgBox it.

Any Ideas

Sub graphseries()

Dim Chart1XVal As String
Dim Chart1Val As String

    Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("Discussion Sheet").Range("A1:A1"), _
        PlotBy:=xlRows
        
    For j = 1 To Range("NumberCriterium").Value
        Chart1XVal = ""
        Chart1Val = ""
        For i = 1 To Range("NumberSuppliers").Value - 1
            If i = 1 Then
                Chart1XVal = Chart1XVal & Range("AvgSupplier" & i).Name
                Chart1Val = Chart1Val & Range("AvgTotalScoreAdjusted" & i & j).Name
            Else
                Chart1XVal = Chart1XVal & ", " & Range("AvgSupplier" & i).Name
                Chart1Val = Chart1Val & ", " & Range("AvgTotalScoreAdjusted" & i & j).Name
            End If
        Next i
        Chart1XVal = WorksheetFunction.Substitute(Chart1XVal, "=", "")
        Chart1Val = WorksheetFunction.Substitute(Chart1Val, "=", "")
        
        MsgBox Chart1XVal
        MsgBox Chart1Val

        ActiveChart.SeriesCollection(j).XValues = "=(" & Chart1XVal & ")"
        ActiveChart.SeriesCollection(j).Values = "=(" & Chart1Val & ")"
        ActiveChart.SeriesCollection(j).Name = "=AvgCriteria" & j
    Next j
    ActiveChart.Location Where:=xlLocationAsNewSheet
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Evaluated Avg Scores"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Supplier"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Score"
    End With
    ActiveChart.HasDataTable = False
End Sub

 

[Richard Schollar]

What value does 'Chart1XVal' return?

 

[xSteveGx]

Richard,

Chart1XVal is returning

'Discussion Sheet'!$G$1, 'Discussion Sheet'!$N$1, etc..........

which is valid because i cut and pasted it into a recorded macro and it worked

I'm stumped