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

Just a guess...

Did the misspelled word get added to the dictionary?

Hans Emilio wrote:

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

--

Dave Peterson

No, there were several words that were mispelled and were not picked-up by
the dictionary. I cleared the "add to dictionary" list from Microsoft Word,
so I don't know what is causing this mishap.

Thanks,
--
Hans Emilio


"Dave Peterson" wrote:

Just a guess...

Did the misspelled word get added to the dictionary?

Hans Emilio wrote:

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

--

Dave Peterson

I don't have another guess.

MSWord remembers which word you told it to ignore, but I've never seen that
option in Excel.

I don't have another guess.

(Just curious, though...what are the words that are ignored?)

Hans Emilio wrote:

No, there were several words that were mispelled and were not picked-up by
the dictionary. I cleared the "add to dictionary" list from Microsoft Word,
so I don't know what is causing this mishap.

Thanks,
--
Hans Emilio

"Dave Peterson" wrote:

Just a guess...

Did the misspelled word get added to the dictionary?

Hans Emilio wrote:

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

--

Dave Peterson


--

Dave Peterson