VBA - Graph repositioning

[Spurious]

This is my chart creating macro.
I want to change some parameters of the graph, but get an error:
Automation error

Sub CreateChart()
Dim jS As Worksheet
Dim jRow As Long
Dim jChart As Chart
Dim jChartRange As Range

    Set jS = ActiveSheet
    Range("A2:B2").Select
    Set jChartRange = Range("A2:B2", Selection.End(xlDown))
    Set jChart = Charts.Add
    jChart.ChartType = xlLineMarkers
    jChart.SetSourceData Source:=jChartRange, PlotBy:=xlColumns
    jChart.Location Where:=xlLocationAsObject, Name:=jS.Name
    With jChart
        .HasTitle = False
        .Parent.Top = 15
        .Parent.Left = 200
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
        .HasLegend = False
        .HasDataTable = False
    End With
End Sub

Whre is my mistake?

 

[GlennUK]

Just a guess, but aren't you changing what type of object jChart is after your created it? I should imagine that would cause problems. Use ActiveChart, or redefine your object after you've reset what the chart is, like:

    jChart.Location Where:=xlLocationAsObject, Name:=jS.Name
    Set jChart = ActiveChart

 

[Spurious]

Thanks this works!