Héctor,
I was going to suggest that, but initial tests from the routine showed:
? TypeName(Application.Caller)
Range
which was a bit confusing.

Now it works, showing:
? TypeName(Application.Caller), Application.Caller
String Rectangle 3

Can't repeat the error now, so who knows...

NickHK

"Héctor Miguel" wrote in message
...
hi, Marvin !

I have different shapes with one common macro.
I would like to know which shape name was used to envoke the macro.
Any ideas would be greatly appreciated.

depending on the figure type...
did you already attempt with Application.Caller ?

hth,
hector.