Are you deleting cells during the process, or just changing the range
pointed at by the chart? If it's the latter, make a dynamic chart, which
does not require VBA coding:

http://peltiertech.com/Excel/Charts/Dynamics.html

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


"Khurram" wrote in message
ups.com...
Hi all,
I'm using the following code for updating a chart on an existing
worksheet. The chart contains data covering a period of 13 months
(Jan-Jan) and the code prior to this adds an extra month's worth of
data to the source. What I need is for the update process to drop one
month at the begining when a new month is added. The below code ends
up taking everything is the rows rather than the specific range I'm
trying to use. I think I'm making a trivial mistake somewhere but I
cant locate it. Please help.


Dim bottomRightOfGraphData As String
Dim topLeftOfGraphData As String

bottomRightOfGraphData = ActiveCell.Address
Range(bottomRightOfGraphData).Select
ActiveCell.Offset(-1, -12).Select
topLeftOfGraphData = ActiveCell.Address

'update related graph
ActiveSheet.ChartObjects("Chart 8").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("HP Analyst & Q
time").Range("A1:A3", topLeftOfGraphData & ":" &
bottomRightOfGraphData), PlotBy:=xlRows

Thank you kindly
Deecrypt