Please Help With Chart Code

Hi Wayne,

Have a look at this line -

Set XTemp = Range("C1").Resize(x, 0)

Resize requires the row & column arguments each to be at least 1. Both yours
are 0, as you have not assigned a value to x.

You say "amtrows" is required but it's not used in your code.

Subject to setting XTemp to a cell range that works with your chart type the
rest of your code should work, but no need to select the chartarea.

Regards,
Peter T

"WayneK" <[email protected]> wrote in
message news:[email protected]...
>
> Hi. I am using Excel 2003.
>
> I used the macro recorder and modied some of the code in the hopes that
> the
> VBA I wrote work work. Instead, it produces errors. I have a Chart
> object on
> a Sheet that I wish to "feed" a range to chart. Since the number of
> rows for the
> needed range changes from time to time, I included a variable called
> amtrows.
> Then I try to "assign" a range to variable XTemp. Then I try to feed
> that XTemp
> range into the Chart object.
>
> My modified code errors at this line --
>
> Set XTemp = Range("C1").Resize(x, 0)
>
> And at this line as well --
>
> ActiveChart.SetSourceData Source:=Sheets("Sheet5").Range(XTemp), PlotBy
> _
> :=xlColumns
>
> Could you please review my code below and tell me what to change ? I
> would be most
> grateful for your help.
>
> WayneK
>
> Dim amtrows As Long
> Dim XTemp As Range
>
> amtrows = Range("A8").Value
>
> Set XTemp = Range("C1").Resize(x, 0)
>
> ActiveSheet.ChartObjects("Chart 2").Activate
> ActiveChart.ChartArea.Select
> ActiveChart.SetSourceData Source:=Sheets("Sheet5").Range(XTemp), PlotBy
> _
> :=xlColumns
> ActiveWindow.Visible = False
>
>
> --
> WayneK
> ------------------------------------------------------------------------
> WayneK's Profile:
http://www.excelforum.com/member.php...o&userid=23037
> View this thread: http://www.excelforum.com/showthread...hreadid=394173
>