I have a wordart ("WordArt 36") that is referenced in a macro.

When I copy the worksheet to another worksheet, the name of this changes to
"WordArt 32"

Is there a way to copy the worksheet so that the name of the images stay the
same?

Or, is there a way to rename the wordart to the previous name?

Rename "WordArt 32" on your original sheet, eg "myWordArt". Then when you
copy it to another sheet it's name should persist. Be aware, doing that you
can end up with multiple shapes on the sheet with the same name.

Regards,
Peter T


"Mike D." wrote in message
...
I have a wordart ("WordArt 36") that is referenced in a macro.

When I copy the worksheet to another worksheet, the name of this changes
to
"WordArt 32"

Is there a way to copy the worksheet so that the name of the images stay
the
same?

Or, is there a way to rename the wordart to the previous name?

Public Sub ReNamePic()
Dim Pic As Shape
With Selection
..ShapeRange.Name = "WordArt 36"
End With
End Sub


Gord Dibben MS Excel MVP

On Tue, 25 Mar 2008 13:27:03 -0700, Mike D.
wrote:

I have a wordart ("WordArt 36") that is referenced in a macro.

When I copy the worksheet to another worksheet, the name of this changes to
"WordArt 32"

Is there a way to copy the worksheet so that the name of the images stay the
same?

Or, is there a way to rename the wordart to the previous name?

Peter:

How do I go about naming this? When I select it, go to Insert, Name, Define
- it shows the name of the word art in the "Refers to" section. It won't
allow me to delete, rename, or add ...

Thanks for your help!

Mike.

"Peter T" wrote:

Rename "WordArt 32" on your original sheet, eg "myWordArt". Then when you
copy it to another sheet it's name should persist. Be aware, doing that you
can end up with multiple shapes on the sheet with the same name.

Regards,
Peter T


"Mike D." wrote in message
...
I have a wordart ("WordArt 36") that is referenced in a macro.

When I copy the worksheet to another worksheet, the name of this changes
to
"WordArt 32"

Is there a way to copy the worksheet so that the name of the images stay
the
same?

Or, is there a way to rename the wordart to the previous name?

Manually, select your wordart and you should see its name in the Names box
to the left of the Input bar. Just type your new name in the name box while
the shape is selected.

With code,
Activesheet.Shapes("WordArt 32").Name = "myWordArt"

If you have just added the wordart and haven't changed the 'Order' of any
shapes, you could do this -

With ActiveSheet.Shapes
..Item(.Count).Name = "myWordArt"
End With

With both the above, you'll get an error if another shape exists with the
new name.

Regards,
Peter T

"Mike D." wrote in message
...
Peter:

How do I go about naming this? When I select it, go to Insert, Name,
Define
- it shows the name of the word art in the "Refers to" section. It won't
allow me to delete, rename, or add ...

Thanks for your help!

Mike.

"Peter T" wrote:

Rename "WordArt 32" on your original sheet, eg "myWordArt". Then when
you
copy it to another sheet it's name should persist. Be aware, doing that
you
can end up with multiple shapes on the sheet with the same name.

Regards,
Peter T


"Mike D." wrote in message
...
I have a wordart ("WordArt 36") that is referenced in a macro.

When I copy the worksheet to another worksheet, the name of this
changes
to
"WordArt 32"

Is there a way to copy the worksheet so that the name of the images
stay
the
same?

Or, is there a way to rename the wordart to the previous name?