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()
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


--
Regards,
Tom Ogilvy

"Don Rouse" wrote in message
...
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,

That works for me. Thank you for the assistance.

Don

"Tom Ogilvy" wrote:

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


--
Regards,
Tom Ogilvy

"Don Rouse" wrote in message
...
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