title: runtime error 91: Object variable or With block variable not set, example from MS office website
body: <p>I am trying to extract data from MS-excel graph using macro given on MS excel <a href="https://support.microsoft.com/en-us/kb/300643" rel="nofollow">website</a>  </p>
  
  <p>Here is the code </p>
  
  <pre><code>Sub GetChartValues()
     Dim NumberOfRows As Integer
     Dim X As Object
     Counter = 2
  
     ' Calculate the number of rows of data.
     NumberOfRows = UBound(ActiveChart.SeriesCollection(1).Values)
  
     Worksheets("ChartData").Cells(1, 1) = "X Values"
  
     ' Write x-axis values to worksheet.
     With Worksheets("ChartData")
        .Range(.Cells(2, 1), _
        .Cells(NumberOfRows + 1, 1)) = _
        Application.Transpose(ActiveChart.SeriesCollection(1).XValues)
     End With
  
     ' Loop through all series in the chart and write their values to
     ' the worksheet.
     For Each X In ActiveChart.SeriesCollection
        Worksheets("ChartData").Cells(1, Counter) = X.Name
  
        With Worksheets("ChartData")
           .Range(.Cells(2, Counter), _
           .Cells(NumberOfRows + 1, Counter)) = _
           Application.Transpose(X.Values)
        End With
  
  
        Counter = Counter + 1
     Next
  
  End Sub
  </code></pre>
  
  <p>Where is the error in this code?</p>