Hi, I am looking to update a chart at the end of a working routine. Each time
a new line is add and I only want the final four row. Here is what I have
done so far with everything I found out.

Sub MACRO1()

#line ok#Set chartrange = Range("D5").End(xlDown).Offset(-3, -3).Resize(4,
4).Activate

Here is where I got problems
Sheets("graph par qty").Select
ActiveChart.SetSourceData Source:=chartrange, PlotBy:=xlColumns

End Sub
--
Mathieu

Change the first statement to

Set chartrange = Worksheets("Sheet
Name").Range("D5").End(xlDown).Offset(-3, -3).Resize(4, 4)

If this doesn't solve the problem, post back with a clearer description of
what didn't work.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Mathieu" wrote in message
...
Hi, I am looking to update a chart at the end of a working routine. Each
time
a new line is add and I only want the final four row. Here is what I have
done so far with everything I found out.

Sub MACRO1()

#line ok#Set chartrange = Range("D5").End(xlDown).Offset(-3, -3).Resize(4,
4).Activate

Here is where I got problems
Sheets("graph par qty").Select
ActiveChart.SetSourceData Source:=chartrange, PlotBy:=xlColumns

End Sub
--
Mathieu

Thank you so much!!!, that is working. I am jsut beginning how to work with
vba and from what I discover, I should have learn that before. I will be
clearer next time!

Mathieu


"Jon Peltier" wrote:

Change the first statement to

Set chartrange = Worksheets("Sheet
Name").Range("D5").End(xlDown).Offset(-3, -3).Resize(4, 4)

If this doesn't solve the problem, post back with a clearer description of
what didn't work.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Mathieu" wrote in message
...
Hi, I am looking to update a chart at the end of a working routine. Each
time
a new line is add and I only want the final four row. Here is what I have
done so far with everything I found out.

Sub MACRO1()

#line ok#Set chartrange = Range("D5").End(xlDown).Offset(-3, -3).Resize(4,
4).Activate

Here is where I got problems
Sheets("graph par qty").Select
ActiveChart.SetSourceData Source:=chartrange, PlotBy:=xlColumns

End Sub
--
Mathieu