I have several shapes on a spreadsheet that I want to assign a common macro,
but within the macro I need to know the shape location.

I need to know how to find XXX (the shape name or index) to get it to a
location

Sub box_select()
Set Sx = ActiveSheet
Lx = Sx.Shapes(XXX).TopLeftCell.Address
Range(Lx).Select
End Sub

Thanks.

Tom