Chart source data range

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I am trying to add charts where the source data range is variable. The
following code gives me a "91" error "Object variable not set. It does not
like the activecell reference for the range.

How can I get around this problem?

Sub AddChart()
Charts.Add
ActiveChart.ChartType = xl3DColumn
ActiveChart.SetSourceData
Source:=Sheets(myDivision).Range(ActiveCell.Offset(1, 0),
ActiveCell.End(xlDown).Offset(0, 2)), _
PlotBy:=xlColumns

Thank you for your assistanve.

Don
 
Is the activesheet mydivision? Mydivision defined? If not, there's your
huckleberry.

Sub AddChart()
Click to expand...
Dim rng as Range
With Sheets(myDivision)
set rng = .Range(.Range("A2"), _
.Range("A2").End(xlDown).Offset(0, 2))
End with
Charts.Add
ActiveChart.ChartType = xl3DColumn
ActiveChart.SetSourceData _ Source:=rng, _
PlotBy:=xlColumns
Click to expand...
 
Back
Top