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

You have a macro that's assigned to the shape and you want to know what shape
was clicked?

Lx = Sx.Shapes(application.caller).TopLeftCell.Address

Tom wrote:

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

--

Dave Peterson

Hi Tom,

Dim XXX as string
XXX = Application.Caller

Also have a look at Application.Goto(ref, true/false)

Regards,
Peter


"Tom" wrote in message
...
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