Macro on copied sheet

Hopefully this will come across right ? I have a macro using the following to bring a shape to the front:

ActiveSheet.Shapes("Rectangle 447").Select
    Selection.ShapeRange.ZOrder msoBringToFront

When I make a copy of that sheet the shape becomes a different number for ex. "Rectangle 447" becomes "Rectangle 445" and the macro will not work properly on that copied sheet. Is there any fix for this?

Thanks in advance,
Beatnik