I'm trying to set up a spell check macro for a specific range in column I.

I've come up with this, but Excel gives me an error. Can someone help me fix it? PLEASE HELP!!!

Option Explicit
Sub Spell_check()
    'unprotect worksheet to allow spell check
    ActiveSheet.Unprotect
        'spell check function
        Dim rRng As Excel.Range
        'set range as column I
        rRng = ActiveSheet.Range("I1:I200")
        CheckSpelling IgnoreUppercase:=True, AlwaysSuggest:=True, SpellLang:=3081
        Set rRng = Nothing
        End If
    're-protect worksheet allowing select unlocked cells
    With ActiveSheet
    .Protect
    .EnableSelection = xlUnlockedCells
    End With
End Sub
Thank you!