Andy, that's pretty sweet. I didn't know about Application.Caller.

Jzz, this works in the OnAction macro:

Dim shp As Shape

Set shp = ActiveSheet.Shapes(Application.Caller)
MsgBox shp.Name
shp.Left = shp.Left + 100 ' just for fun
Set shp = Nothing

Nick Hebb
BreezeTree Software
http://www.breezetree.com