Hello,

I am stomped, I have the following code:

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect Password:="xx"
Range("A:A").Select
Cells.CheckSpelling CustomDictionary:="CUSTOM.DIC", IgnoreUppercase:=False _
, AlwaysSuggest:=True

ActiveSheet.Protect Password:="xx"
End Sub

However, the spell check after so many time using it, it does not correct
the spelling. Can someone explain to me as to why this happens, or a
solution for this problem?

Appreciate any input and help from anyone.

Thank-you,

--
Hans Emilio