Chris, here is one way, password for sheet in this macro is 123, assign this
to a button on the sheet
Sub spellcheck()
ActiveSheet.Unprotect password:="123"
Cells.CheckSpelling CustomDictionary:="CUSTOM.DIC",
IgnoreUppercase:=False _
, AlwaysSuggest:=True
ActiveSheet.Protect password:="123"
End Sub
--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **