You might want to provide more details of what you are looking for (hint... use the large white space in the message area of your posting).

--
Rick (MVP - Excel)

I don't know if this will help, but let's say you select an octagon from the
autoshape objects and it is the only autoshape on the sheet.

Sub dkd()
Sheets(1).Shapes("AutoShape 1").Name = "Stop"
MsgBox Selection.Name
End Sub

The above code would rename the shape from AutoShape 1 to Stop.


"FrankD" <(E-Mail Removed)> wrote in message
news0D9CB7F-9D00-4837-B88D-(E-Mail Removed)...
>

For intTemp = 1 To ActiveSheet.Shapes.Count
ActiveSheet.Shapes(intTemp).Name = "ShapeName"
Next

If this post helps click Yes
---------------
Jacob Skaria

??? You can't rename all the shapes with the same name. At minimum, you
would have to do your code something like this I would think...

ShapeNames = Array("FirstName", "SecondName", "ThirdName")
For intTemp = LBound(ShapeNames) To UBound(ShapeNames)
ActiveSheet.Shapes(intTemp + 1).Name = ShapeNames(intTemp)
Next

But I'm not 100% sure that is what the OP is after; hence my request for
clarification (and my 'gentle' nudge for him to not use the Subject line to
ask his question).

--
Rick (MVP - Excel)


"Jacob Skaria" <(E-Mail Removed)> wrote in message
news:19412B96-21B5-4A4A-9E3F-(E-Mail Removed)...
> For intTemp = 1 To ActiveSheet.Shapes.Count
> ActiveSheet.Shapes(intTemp).Name = "ShapeName"
> Next
>
> If this post helps click Yes
> ---------------
> Jacob Skaria
>
>

Hi Rick

I should have mentioned that as <sheetname> instead of "sheetname" to convey
the message that it is a variable which needs to be passed.

If this post helps click Yes
---------------
Jacob Skaria


"Rick Rothstein" wrote:

> ??? You can't rename all the shapes with the same name. At minimum, you
> would have to do your code something like this I would think...
>
> ShapeNames = Array("FirstName", "SecondName", "ThirdName")
> For intTemp = LBound(ShapeNames) To UBound(ShapeNames)
> ActiveSheet.Shapes(intTemp + 1).Name = ShapeNames(intTemp)
> Next
>
> But I'm not 100% sure that is what the OP is after; hence my request for
> clarification (and my 'gentle' nudge for him to not use the Subject line to
> ask his question).
>
> --
> Rick (MVP - Excel)
>
>
> "Jacob Skaria" <(E-Mail Removed)> wrote in message
> news:19412B96-21B5-4A4A-9E3F-(E-Mail Removed)...
> > For intTemp = 1 To ActiveSheet.Shapes.Count
> > ActiveSheet.Shapes(intTemp).Name = "ShapeName"
> > Next
> >
> > If this post helps click Yes
> > ---------------
> > Jacob Skaria
> >
> >
>
>