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?