Put some AutoShapes in a sheet and:

Sub qwerty()
MsgBox (ActiveSheet.Shapes.Count)
i = 0
For Each s In ActiveSheet.Shapes
MsgBox (s.Name)
s.Name = "mino" & i
i = i + 1
Next
End Sub

will tell:

1. you how many are there
2. their names
3. then re-name them
--
Gary''s Student - gsnu2007g


"mino" wrote:

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.