word wrap may be a problem with the other one


Sub Spell_Check()
'spell check a protected sheet
Const Password = "123" '**Change password here**
ActiveSheet.Unprotect Password:=Password
Cells.CheckSpelling CustomDictionary:= _
"CUSTOM.DIC", IgnoreUppercase:=False _
, AlwaysSuggest:=True
ActiveSheet.Protect Password:=Password
End Sub


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Paul B" <to_much_spam_to_list@nospam.com> wrote in message
news:%23O528MjsGHA.452@TK2MSFTNGP05.phx.gbl...
> Tonks, use a macro to unprotect the sheet, spell check, and then protect
the
> sheet, like this, assign to a button on the sheet
>
> Sub Spell_Check()
> 'spell check a protected sheet
> Const Password = "123" '**Change password here**
> ActiveSheet.Unprotect Password:=Password
> Cells.CheckSpelling CustomDictionary:="CUSTOM.DIC",
> IgnoreUppercase:=False _
> , AlwaysSuggest:=True
> ActiveSheet.Protect Password:=Password
> End Sub
>
>
> --
> Paul B
> Always backup your data before trying something new
> Please post any response to the newsgroups so others can benefit from it
> Feedback on answers is always appreciated!
> Using Excel 2002 & 2003
>
> "Tonks" <Tonks@discussions.microsoft.com> wrote in message
> news:FC588ADD-62FE-4947-A370-4DD9B0978383@microsoft.com...
> > How do I set Excel so others can Spell check data in a protected sheet?
>
>