Archief - [Prog]-[VBA] Macro: grafiek met variabele x- en y-waarden

Ik raak er maar niet uit hoe ik dit moet doen.
Kan iemand me helpen?
Heb voorlopig dit:

Dim aantalRijen As Integer
i = 12
Do While (Not IsEmpty(Cells(i, 1)))
i = i + 1
Loop

aantalRijen = i - 1

Dim x1 As Long, x2 As Long
Dim myXValues As String
Dim myYValues As String
x1 = 12
x2 = aantalRijen
myXValues = "=Meetwaarden!R" & CStr(x1) & "C2:R" & CStr(x2) & "C2"
myYValues = "=Meetwaarden!R" & CStr(x1) & "C3:R" & CStr(x2) & "C3"

Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("Meetwaarden").Range("E12")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = myXValues
ActiveChart.SeriesCollection(1).YValues = myYValues

Dit lijkt me wel correct, maar telkens komt er een foutmelding op bij:
ActiveChart.SeriesCollection(1).YValues = myYValues
Namelijk:
'Fout 438 tijdens uitvoering. Deze eigenschap of methode wordt niet ondersteund door dit object'

Ik gebruik VBA 6.3
Weet iemand de oplossing?
Alvast bedankt

Grtz
Spiieluhr

Opgelost...
Maar nieuw vraagje:
hoe geef ik een grafiek een vaste naam?

of nog beter:
hoe kan ik voor iedere grafiek die gemaakt wordt, deze opschuiven naar links?
ActiveSheet.Shapes("Grafiek 5").IncrementLeft -150# ?
Maar daarvoor moet naam constant dezelfde zijn...

kan je in je workbook niet gewoon een New Chart invoegen? Lijkt mij het simpelste.