Chart source data range

[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

 

[Tom Ogilvy]

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

Sub AddChart()

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

 

[Guest]

Tom,

That works for me. Thank you for the assistance.

Don