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!
Bookmarks