Spell Check Macro Help

I am running the following script. It unprotects, runs spell check, and then re-protects. That portion works. It does not however allow for formatting rows once the macro runs. Any ideas why?


Sub Spellcheck_Click()

ActiveSheet.Unprotect Password:="**"
Cells.CheckSpelling SpellLang:=1033
ActiveSheet.Protect Password:="**"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingRows:=True

End Sub

I ran a similar macro that made the row formatting work, but when I tried to add the password to it it would not reprotect with the password.

You have a response at your post in .misc.

Kevin Ward wrote:
>
> I am running the following script. It unprotects, runs spell check, and
> then re-protects. That portion works. It does not however allow for
> formatting rows once the macro runs. Any ideas why?
>
> Sub Spellcheck_Click()
>
> ActiveSheet.Unprotect Password:="**"
> Cells.CheckSpelling SpellLang:=1033
> ActiveSheet.Protect Password:="**"
> ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
> Scenarios:=True _
> , AllowFormattingRows:=True
>
> End Sub
>
> I ran a similar macro that made the row formatting work, but when I
> tried to add the password to it it would not reprotect with the
> password.
>
> --
> Kevin Ward
> ------------------------------------------------------------------------
> Kevin Ward's Profile: http://www.excelforum.com/member.php...o&userid=31417
> View this thread: http://www.excelforum.com/showthread...hreadid=516369

--

Dave Peterson