Spell Check Macro - Move to Cell
 

I am using the below macro to spell check a protected worksheet...
I noticed that when suggesting a word, it doesn't move to the cell where the
misspelled word is located, like the built in menu item does... any way to
make it work that way?

Sub SpellCheck()
ActiveSheet.Unprotect Password:="Password"
Cells.CheckSpelling CustomDictionary:="CUSTOM.DIC", _
IgnoreUppercase:=False, AlwaysSuggest:=True
ActiveSheet.Protect Password:="", DrawingObjects:=True, _
Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True
End Sub