Many Thanks to you and Gary"s

"Peter T" <peter_t@discussions ha scritto nel messaggio
...
The last inserted shape will be the 'topmost' (assuming you haven't
changed order).

Dim shp as Shape
Set shp = ActiveSheet.Shapes(ActiveSheet.Shapes.Count) ' fails if no
shapes
shp.Name = "newUniqueName"

See 'AddShape' in help and work with 'shp'
Set shp = ActiveSheet.Shapes.AddShape(arg's...
shp.name =

Regards,
Peter T


"mino" wrote in message
...
Dear All,

1) where can I get the name of a shape put in sheet? I usually create a
macro, select it, and I find the name in the vba code.
2) is possible to assign a specify name to a shape?

Thanks to anyone
M.