Chart source data range

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" <[email protected]> wrote in message
news:[email protected]...
> 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" <[email protected]> wrote in message
> news:[email protected]...
> > 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
>
>
>