All

I have the code working that will let me retrieve the series formula for a
chart but I need the data range for the chart.

For Each xlSheet In xlBook.Worksheets
For Each EChart In xlSheet.ChartObjects
rst!series = EChart.Chart.SeriesCollection(1).Formula
Next EChart
Next xlSheet

Now this works and I can save the information off into a table. What I want
is to save the data range for the chart in a table within MS Access. Can
anyone help with with the correct code to access and save the datarange for
each chart. Once i have that I will modifiy it within Access and then write
it back to the excel chart.

thanks

Terry