Shape name changes with worksheet copy

[OfficeUser]

I have a worksheet where shape changes color when a command button is clicked.

Private Sub lblChem_Click()
ActiveSheet.Unprotect Password:="password"
    If Shapes("Oval 1").Fill.ForeColor.SchemeColor = 10 Then 'Red
    Shapes("Oval 1").Fill.ForeColor.SchemeColor = 11
        Range("AW10:BA10,S10:W10").Select
        Selection.Locked = False
Range("AC5").Select
Else
    If Shapes("Oval 1").Fill.ForeColor.SchemeColor = 11 Then 'Green
    Shapes("Oval 1").Fill.ForeColor.SchemeColor = 10
        Range("AW10:BA10,S10:W10").Select
        Selection.Locked = True
Range("AC5").Select
End If
End If
ActiveSheet.Protect Password:="password"
End Sub

It works fine as-is. If I copy the worksheet then the shape name changes to something like "Oval16" or "Oval 4" thus causing my code to error.

Is there a way to keep this from happening? I don't have this issue with my command buttons so I am not seeing the difference here. Suggestions? Thanks.

 

[Andrew Poulsom]

I can't reproduce that behaviour in Excel 2003. If I copy a worksheet to another workbook, shapes retain their original names.

 

[OfficeUser]

Thats odd. I thought maybe I had to declare it globally or something.

 

[Andrew Poulsom]

Declare what globally?

 

[OfficeUser]

Wrong wording. I thought maybe there was a way to solidify the shapes name in vba.

 

[Andrew Poulsom]

If you only have one shape, you can use Shapes(1).

 

[OfficeUser]

It will not change the fill color to green once I change it to Shapes(1). However I do not get an error suing Shapes(1).

 

[Andrew Poulsom]

I guess your oval is not the first shape on the worksheet then.

 

[OfficeUser]

I could not figure it out. I have since swapped the oval for a label which does the same thing and it works as intended. Thanks for your help.