Hi,
I am using a spellcheck Macro in a protected worksheet. It works fine, but I need to modify it to check the 'edit objects' box when it protects the sheet after completing the spellcheck. I have tried a number of different things but it keeps coming back with an error. Can someone please help with this?

Regards,
Benn

This is the code I already have;

Sub SelectUnlockedCells_Spellcheck()

ActiveSheet.Unprotect Password:="password"
Dim WorkRange As Range
Dim FoundCells As Range
Dim Cell As Range
Set WorkRange = ActiveSheet.UsedRange
For Each Cell In WorkRange
If Cell.Locked = False Then
If FoundCells Is Nothing Then
Set FoundCells = Cell
Else
Set FoundCells = Union(FoundCells, Cell)
End If
End If
Next Cell
If FoundCells Is Nothing Then
MsgBox "All cells are locked."
Else
FoundCells.CheckSpelling CustomDictionary:="CUSTOM.DIC", _
IgnoreUppercase:=False, AlwaysSuggest:=True, SpellLang:=3081
End If

ActiveSheet.Protect Password:="password"

End Sub