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