try

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

--
Don Guillett
SalesAid Software

"neta" wrote in message
...

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