vba - Excel VBA: 変数を使用して折れ線グラフのフィールドを指定する

Question

助けが必要です。さまざまなグラフを実行するために、Excel でマクロを作成しています。チャートの VALUES の指定にエラーのメッセージが表示されます。X 値と Y 値が異なる複数の同様のチャートを作成する必要があるため、文字列を使用して範囲を指定しています。その内容は毎回更新されます。私が使用しているシートは「データ」と「グラフ」と呼ばれているため、コードにこれらの名前が表示されます。Excel2010でVBAを使用しています。

これがコードです。

Sub repetutive_charts()

Dim day As Integer
Dim row_in As Long
Dim row_end As Long

row_in = 3602
row_end = 90001

For day = 2 To day = 13
' Need to select an empty cell, like D1, otherwise the old graph is still selected and excel cannot create a new graph

Range("D1").Select
ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).name = "=Graph!$A$" & CStr(row_in)
    ActiveChart.SeriesCollection(1).Values = "=Data!$K$" & CStr(row_in) & ":$K$" & CStr(row_end)
    ActiveChart.SeriesCollection(1).Xvalues = "=Data!$I$" & CStr(row_in) & ":$I$" & CStr(row_end)

row_in = row_in + 5400
row_end = row_end + 5400

Next day
End Sub