vba - vbaを使用してExcelにグラフを追加する

Question

シートに散布図を追加しようとしています。手動で行うと問題なく動作しますが、記録されたマクロを使用しようとすると、1004 エラーが発生します

" Sheets("Mapa Riesgos").Shapes.AddChart.Select "

ここにコードがあります

Sheets("Mapa Riesgos").Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Range("A11:B35")
With ActiveChart
    .Parent.name = "Riesgo Inherente"
    .Legend.Delete
    .Axes(xlValue).MinimumScale = 0.5
    .Axes(xlValue).MaximumScale = 5.5
    .Axes(xlCategory).MinimumScale = 0.5
    .Axes(xlCategory).MaximumScale = 5.5
    .Axes(xlValue).MajorGridlines.Delete
    .Axes(xlValue).Delete
    .Axes(xlCategory).Delete
    .SeriesCollection(1).MarkerStyle = -4142

     'chart name
    .HasTitle = True
    .ChartTitle.Characters.Text = "Riesgo Inherente"
    .ChartTitle.Font.Size = 20
     'X axis name
    .Axes(xlCategory, xlPrimary).HasTitle = True
    .Axes(xlCategory, xlPrimary).AxisTitle.Font.Size = 13
    .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Impacto"
     'y-axis name
    .Axes(xlValue, xlPrimary).HasTitle = True
    .Axes(xlValue, xlPrimary).AxisTitle.Font.Size = 13
    .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Probabilidad"

    .Parent.Width = 400
    .Parent.Height = 400
    .Parent.Left = 60
    .Parent.Top = 100
End With

以前にこのコードを使用したことがありますが、何らかの理由でここで使用すると、最初の実行だけで機能し、その後エラーが表示され始めます