ExcelBanter - View Single Post - getting the active chart/chartobject's name

Stanley[_2_]

Given the code below, does anyone have any suggestions on how to
obtain the active chart/chartobject's name so that I can address
Shape(name) properly when I try ot move the shape?

Code:

Sub LT(wbname As String, wsname As String)   ' Graphing Lifetime
Results
    Dim normalgraph As Chart                ' normal graph variable
    Dim regressgraph As Chart               ' regression graph
variable
    Dim twoGraphs As ChartObjects              'Chartobjects for
embedded charts

    Dim ngName As String                'normal graph name for moving
the chart
    Dim rgName As String                'regression graph name for
moving the chart

    Dim i As Long                           ' loop counter
    Dim colEnd As Long                         ' end of a column

    Workbooks(wbname).Sheets(wsname).Activate       'activate
worksheet of interest

    Let colEnd = Range("c2").End(xlDown).Row

    ' Select data range
    Range(Cells(2, 2), Cells(colEnd, 6)).Select

    ' insert new graph for showing Fuel cell voltage, flow,
temperature,
    ' and fuel cell current
    Set normalgraph = Charts.Add
    Set normalgraph = normalgraph.Location(whe=xlLocationAsObject,
Name:=wsname)
    ngName = normalgraph.Name

    'more code

Thanks!