title: Object variable or With block variable not set (Error 91) error
body: <p>I have the following code that was working earlier, but is now showing an error:</p>
  
  <pre><code>Sub AttachLabelsToPoints()
  
     'Dimension variables.
     Dim Counter As Integer
     Dim ChartName As String
     Dim xVals As String
  
     ' Disable screen updating while the subroutine is run.
     Application.ScreenUpdating = False
  
     'Store the formula for the first series in "xVals".
     xVals = ActiveChart.SeriesCollection(1).Formula
  
     'Extract the range for the data from xVals.
     xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
        Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))
     xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)
     Do While Left(xVals, 1) = ","
        xVals = Mid(xVals, 2)
     Loop
  
     'Attach a label to each data point in the chart.
     For Counter = 1 To Range(xVals).Cells.Count
       ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _
           True
       ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _
       Range(xVals).Cells(Counter, 1).Offset(0, -1).Value
     Next Counter
  
  End Sub
  </code></pre>
  
  <p>The error is specifically around the <code>xVals = ActiveChart.SeriesCollection(1).Formula</code> statement. When I put a <code>Set</code> in front of it, it just asks for an object.</p>
  
  <p>Would anyone be able to help me on what's wrong? </p>