Changing a shapes fill color when worksheet opens

[OfficeUser]

This is the code that is triggered by a button to alert a user that two specific cells are active:

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

If the shape appears red then the cells are locked, when it is green, they are unlocked.

I tried to add this bit into the Workbook_Open event to make sure the two cells are locked and the shape is red when first opening the workbook but I get an error:

Private Sub Workbook_Open()
ActiveSheet.Unprotect.Password:="password"
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
ActiveSheet.Protect Password:="password"
End Sub

Problem is I receive a compile error: Sub or Function not defined. The highlighted word is 'Shapes'. Anyone know what I am missing? Thanks.

 

[daverunt]

ActiveSheet.Shapes("Oval 1")

 

[OfficeUser]

Great, it worked. But why do I not need that in the macro for the button I created?

 

[daverunt]

No Idea.

Anyone like to enlighten us?