Run Time Error 9 Subscript out of Range

Can anyone tell me why this macro (which I use to sort rows) is generating an error message?

Sub sortstores()
Sheets("OER Dashboard Report").Unprotect Password:="Grimmer"
Range("C11:Y89").Sort Key1:=Range("F1"), _
Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Sheets("OER Dashboard Report").Protect Password:="Grimmer"
End Sub

Richard,

The error still seems to be occuring. When I remove the unlock/lock aspect of the macro, it works fine however it creates an error when the password aspects are present. Any idea why this may be happening?

I basically need the above macro to, when executed, unlock the sheet, run the sort macro, then re-lock the sheet. The sheet's name is OER Dashboard Report and the password is Grimmer