Thanks for your reply.

i just like to click the shape instead of inputing the name,
i mean it is not necessary to input the name of the shape

thanks


"Jacob Skaria" wrote in message
...
strShapeName = InputBox(Prompt, Title, Default, Left, Top, HelpFile,
HelpContextId, Type)
Activeworkbook.ActiveSheet.shapes(strShapeName).se lect


If this post is helpful click Yes
---------------
Jacob Skaria