create new charts based on defined names list

[Forestq]

Hi,

I have two list:
M1_LIST = values (like 1, 5, 6 etc)
Country_all_list = values names (Audi, BMW etc)

Now I'm creating chart:

Dim charts_1 As ChartObject
Set charts_1 = sCountry.ChartObjects.Add(Left:=300, Top:=175, Width:=400, Height:=300)

With charts_1
    .Chart.ChartType = xlColumnClustered
    .Chart.SeriesCollection(1).Values = "=M1_LIST"
    .Chart.SeriesCollection(1).XValues = "=Country_all_list"
End With

But I'm getting error about "Invalid Parameter".

 

[Forestq]

I changed it:

With mychrt
    .SeriesCollection.NewSeries
    .Legend.Select
    .SetElement (msoElementLegendNone)
    .SeriesCollection(1).Name = Country.Range("E9")
    .SeriesCollection(1).XValues = Country.Range("F9:F15")
    .SeriesCollection(1).Values = Country.Range("A9:A15")

End With

What is wrong here?
xvalues- numbers like 3, 8, 12, 4....
values- audi, bmw, vw, mer.....

 

[Forestq]

works:

Set Country = wb_c.Worksheets("Country lvl")


Dim mychrt As Chart
Set mychrt = Country.Shapes.AddChart.Chart


    With mychrt
    .SeriesCollection.NewSeries
    .Legend.Select
    .ChartType = xlColumnStacked
    .SetSourceData Source:=Country.Range("E9:E15"), PlotBy:=xlColumns
    .SetElement (msoElementLegendNone)
    .SeriesCollection(1).Name = Country.Range("E8")
    .SeriesCollection(1).XValues = Country.Range("D9:D15")
    .SeriesCollection(1).ApplyDataLabels

how to change chart position?

 

[Forestq]

resolved:

    .ChartArea.Left = 200
    .ChartArea.Top = 400
    .ChartArea.Width = 500
    .ChartArea.Height = 200