Thanks so much, Jefferson! You provided the key (as you often do...)!
Selection.ShapeRange is a collection of all shapes within a selection. It doesn't have an Index but it does have an Item Method with which to return a single shape and that's how I fixed this.
On reflection, this makes sense, since I could have more than one shape in my selection. Could this be a fix in vba 7?
On the other hand, I still don't have to set an object and return the item to get the shape name. It seems that vba can tell which Item I mean when I select a single shape and run this code:
strName = Selection.ShapeRange.Name
Best, Kim (a little less today, thanks to you)