hi,

i often use InputBox(Prompt, Title, Default, Left, Top, HelpFile,
HelpContextId, Type) to select a range,

buti it fails to deal with a shape ,how to select a shape obj on the sreen

could you tell me,

thanks

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

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