Get underlying range address of a chartobject in Excel

[Enter1]

Hello All,
Im currently working on a project where I have excel files that have atleast 60-100 graphs each for different parameters. I wanted to list the underlying cell location of these charts in a separate excel sheet. I know I can do the opposite using VBA (specify where a chart can be placed at a desired range in a sheet).
For example I have a graph - chartobject above a range - E3:I13 , I would like to know if we can use VBA to get that underlying range address.

Unable to find a fix to this, if one of you can help then that would be of great help.

Thanks.

 

[AlphaFrog]

This creates a worksheet with a list of all your charts and their locations.

[color=darkblue]Sub[/color] Chart_List_Ranges()
    [color=darkblue]Dim[/color] wsDest [color=darkblue]As[/color] Worksheet, ws [color=darkblue]As[/color] Worksheet, cht [color=darkblue]As[/color] ChartObject, i [color=darkblue]As[/color] [color=darkblue]Long[/color]
    [color=darkblue]Set[/color] wsDest = Sheets.Add(After:=Sheets(Sheets.Count))
    wsDest.Range("A1:C1").Value = Array("Sheet", "Chart", "Range")
    i = 1
    [color=darkblue]For[/color] [color=darkblue]Each[/color] ws [color=darkblue]In[/color] Worksheets
        [color=darkblue]If[/color] [color=darkblue]Not[/color] ws [color=darkblue]Is[/color] wsDest [color=darkblue]Then[/color]
            [color=darkblue]For[/color] [color=darkblue]Each[/color] cht [color=darkblue]In[/color] ws.ChartObjects
                i = i + 1
                wsDest.Range("A" & i).Value = ws.Name
                wsDest.Range("B" & i).Value = cht.Name
                wsDest.Range("C" & i).Value = Range(cht.TopLeftCell, cht.BottomRightCell).Address(0, 0)
            [color=darkblue]Next[/color] cht
        [color=darkblue]End[/color] [color=darkblue]If[/color]
    [color=darkblue]Next[/color] ws
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

 

[Enter1]

Excellent , thanks a lot "AlphaFrog" for the solution . It works like magic!!