Thanks for your help. I played around with having only one protect.
this is what finally worked.
Sub Spellcheck_Click()
ActiveSheet.Unprotect Password:="**"
Cells.CheckSpelling SpellLang:=1033
ActiveSheet.Protect Password:="**", DrawingObjects:=True,
Contents:=True, Scenarios:=True _
, AllowFormattingRows:=True
End Sub
--
Kevin Ward
------------------------------------------------------------------------
Kevin Ward's Profile:
http://www.excelforum.com/member.php...o&userid=31417
View this thread:
http://www.excelforum.com/showthread...hreadid=516394