makro ile grafik çizdirme

[ioztelli]

yazdıgım bir makroda AA sutunda boş olmayan bulunan verileri çekip onların grafigini cizdirmeye calısıyorum.Fakat "object required" hatası alıyorum.
Makro soyle;

Sub grafikcizdirme()
'
' grafikcizdirme Makro
' Makro ioztelli tarafından 13/2/2007 tarihinde kaydedildi.
'
' Klavye Kısayolu: Ctrl+e
'
Sheets("hesap").Select
ActiveWindow.SmallScroll Down:=-21
Sheets("Grafik").Select
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("hesap").Range("AA3:AA" & [a65536].End(3).Row), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Grafik"
ActiveChart.HasDataTable = False
ActiveSheet.Shapes("Grafik 8").IncrementLeft -228.75
ActiveSheet.Shapes("Grafik 8").IncrementTop 170.25
ActiveSheet.Shapes("Grafik 8").ScaleWidth 1.53, msoFalse, msoScaleFromTopLeft
End Sub

 

[emrexcel123]

object require

arakadaşım bu hatanın anlamı nesne yok veya gerekli demektir.kullandığın nesnelerin birinin adını yanlış yazıyorsun herhalde bir kontrol et...