Tough one

[famdamly]

I need a cell to display a shaperange name. I'm stumped.

 

[Gary''s Student]

Try:

Set sr = Worksheets(1).ChartObjects.ShapeRange
Cells(10, 1) = sr.Name

For example a single embedded chart object.

 

[famdamly]

I tried working with that, I couldn't get it to work.