Is there a way reference a excel shape with a macro attached to it when you
have clicked onto it?

Option Explicit
Sub testme()

Dim myShp As Shape

Set myShp = ActiveSheet.Shapes(Application.Caller)

With myShp
MsgBox .Name & vbLf & .TopLeftCell.Address & vbLf & .Name
End With

End Sub

Jason Zischke wrote:

Is there a way reference a excel shape with a macro attached to it when you
have clicked onto it?

--

Dave Peterson

Some additional macros working with Shapes, but not
from a macro attached to the shape, like you asked and
Dave answered, but you might find
something you want to add to Dave's example.
http://www.mvps.org/dmcritchie/excel/shapes.htm
---
HTH,
David McRitchie, Microsoft MVP - Excel
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm

Jason,

Application.Caller will return a text string with the name of the
shape. Thus, you can get a reference through the Shapes
collection. E.g.,

MsgBox ActiveSheet.Shapes(Application.Caller).Name


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Jason Zischke" wrote in
message
...
Is there a way reference a excel shape with a macro attached to
it when you
have clicked onto it?

Yes
Right click on the excel shape, select Attach Macro. Assign the
corresponding macro. When you move the mouse over the shape a hand will
appear. Click to run the attached macro.

"Jason Zischke" wrote:

Is there a way reference a excel shape with a macro attached to it when you
have clicked onto it?