Charting unknown territory

[nigelandrewfoster]

Hi, I'm new to using charts and macros together. I wrote the code below to enable the chart I am displaying only to use that block of data which is appropriate (it looks for both col A and col B being zero to define its boundaries) but the code stops at the red line, "Application defined or object defined error". I have done a fair bit of tinkering with it, but still no joy. What am I doing wrong, please? Thanks for your help.
Nigel

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim r As Range, y As Integer
    y = 0
    Do
        If [a1].Offset(y) = 0 And [b1].Offset(y) = 0 Then Exit Do
        y = y + 1
    Loop
     Set r = [b24].Offset(y - 1)
    Set r = Range("a25", r)
   [COLOR="Red"] ChartObjects(1).Chart.SetSourceData Source:=Sheets("Graph").Range(r), _
                             PlotBy:=xlColumns[/COLOR]
End Sub

By the way, discovered the [a1] method of entering ranges recently. Why wasn't I told about this before? Much quicker than Range("a1"). However, what is the [] equivalent of Range("a25", r), please? Because it doesn't work if you type [[a25],r], as I would expect. Thanks.

 

[Andrew Poulsom]

Is it this that causes the error?

ChartObjects(1).Chart.SetSourceData Source:=Sheets("Graph").Range(r), PlotBy:=xlColumns

Shouldn't it be?

ChartObjects(1).Chart.SetSourceData Source:=r, PlotBy:=xlColumns

 

[nigelandrewfoster]

You are undoubtedly correct, Mr P. I have amended the code as below. Still stops on red line, but this time "Object does not support this property or method."

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim r As Range, y As Integer, g As Worksheet, d As Worksheet
    Set d = Worksheets("Data")
    Set g = Worksheets("Graph")
    y = 0
    Do
        If d.[a1].Offset(y) = 0 And d.[b1].Offset(y) = 0 Then Exit Do
        y = y + 1
    Loop
    Set r = d.[b1].Offset(y - 1)
    Set r = d.Range("a1", r)
    g.ChartObjects(1).Chart.SetSourceData Source:=Sheets("Graph").r, _
         PlotBy:=xlColumns
End Sub

 

[nigelandrewfoster]

Sorted it. What a buffoon. Thanks.