Greetings;
I wish to spell check a text box on one of my sheets. The worksheet that
the text box is found on must be protected. I have the following code but it
doesn't seem to work. It runs through the macro, but it doesn't detect any
spelling errors when there is errors.

Sub spell_check()
'
' spell_check Macro
'
ActiveSheet.Unprotect
ActiveSheet.Shapes("Text 2").Select
Selection.CheckSpelling
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Any help with this would be greatly appreciated.

Thanks