I'm sure this code could use some other help, but for now, I can't figure out the syntax required to unprotect the active worksheet. There is NO password.

I'm getting "object required"

Sub SortAndSub()
ActiveWorksheet.Unprotect
Application.Goto Reference:="R1C1"
    Application.CutCopyMode = False
    Range("A1:C228").Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range _
        ("C2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
        :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
        DataOption2:=xlSortNormal
    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    ActiveSheet.Outline.ShowLevels RowLevels:=2
ActiveWorksheet.Protect
End Sub