Use Spell Check on protected worksheet using VBA Code|VBA & Macros|Excel Forum|My Online Training Hub

I have applied the code below to VBA to activate the Spell Check feature on a protected worksheet.  My issue is when the code turns the protection back on, it does not capture the attributes attached to the original protection; i.e. the ability to insert or delete rows and columns which is key to this particular worksheet.

The code is;

Sub SpellCheck()
    Application.ScreenUpdating = False
On Error Resume Next
    With ActiveSheet
        .Unprotect ("*****")
        Selection.CheckSpelling
        .Protect ("*****")
    End With
    Application.ScreenUpdating = True
End Sub

Thanks,

Prescott