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

c

This may help

http://www.dicks-blog.com/archives/2...eck-a-textbox/

Make sure you read the comments.

--
Dick Kusleika
Excel MVP
Daily Dose of Excel
www.dicks-blog.com

c wrote:
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

Dick,
Thank you for your input. It isn't exctly what I was hoping for since the
users of this program have very limited computing skills (may cause more
problems), but I think I should be able to use one of the two methods
suggested and make it work.

I appreciate your time,
Thanks again,
C

"Dick Kusleika" wrote:

c

This may help

http://www.dicks-blog.com/archives/2...eck-a-textbox/

Make sure you read the comments.

--
Dick Kusleika
Excel MVP
Daily Dose of Excel
www.dicks-blog.com

c wrote:
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