Shape/picture name in a worksheet

Hi,

I am looking for a VB code line that will enable me to recieve into a variable in a macro the name of a shape/picture I have inserted to the worksheet. Usually it recieves automatic numbered name (shape1...2...).

Thanks Neta.

try

Sub getshapenames()
For Each sh In ActiveSheet.Shapes
MsgBox sh.Name
Next sh
End Sub

--
Don Guillett
SalesAid Software
[email protected]
"neta" <[email protected]> wrote in message
news:[email protected]...
>
> Hi,
>
> I am looking for a VB code line that will enable me to recieve into a
> variable in a macro the name of a shape/picture I have inserted to the
> worksheet. Usually it recieves automatic numbered name
> (shape1...2...).
>
> Thanks Neta.
>
>
> --
> neta
> ------------------------------------------------------------------------
> neta's Profile:
> http://www.excelforum.com/member.php...fo&userid=7624
> View this thread: http://www.excelforum.com/showthread...hreadid=546457
>