Object variable or With block variable not set hata mesajı

[ahmethasim]

Merhaba arkadaşlar aşağıdaki kodu yazdığımda

Object variable or With block variable not set mesajı alıyorum. Neden kaynaklanıyor acaba? With ActiveChart dan sonra gelen .SeriesCollection(1).XValues kısmında hata veriyor. Sebebini söyleyebilir misiniz?

Teşekkürler

Public Sub Toplam()

Charts.Add
ActiveChart.ChartType = xlXYScatterLines

Do Until ActiveChart.SeriesCollection.Count = 0

ActiveChart.SeriesCollection(1).Delete

Loop

For j = 1 To Module1.kesit_sayisi

For t_toplam = 1 To Module1.nokta_sayisi(j)

With ActiveChart

.SeriesCollection(1).XValues = "Sayfa2!" & Sayfa2.Cells(2 + Module1.fark + Module1.donati_sirasi_sayisi(j) * (t_toplam - 1), 12 + Module1.siradaki_donati_adedi(1) * 9 + 23).Address

End With

Next
Next

End Sub