Hi,

I have drawn a rectangle and assigned a macro to it. When I click on this
rectangle, I would like the macro to display the position of the rectangle.

My macro looks something like this:

sub macro1
msgbox selection.top
end sub

I am guessing this doesn't work because the rectangle is not selected when
the macro is running? If you can help, it is greatly appreciated.

Thanks!

Thank you soooooo much!!!



"Greg Wilson" wrote:

Try:

Sub test()
With ActiveSheet.Shapes(Application.Caller)
MsgBox "Top = " & .Top & vbCr & "Left = " & .Left
End With
End Sub

Regards,
Greg

"borg" wrote:

Hi,

I have drawn a rectangle and assigned a macro to it. When I click on this
rectangle, I would like the macro to display the position of the rectangle.

My macro looks something like this:

sub macro1
msgbox selection.top
end sub

I am guessing this doesn't work because the rectangle is not selected when
the macro is running? If you can help, it is greatly appreciated.

Thanks!