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!