Spellchecker anomaly... Checks spelling on a Forms Button text label...?

[lhki...@comcast.net]

The only place I have experienced this is on this home made puzzle solver worksheet I put together. (Drop Box Link below)

Run spell check from tool bar and it offers a solution to the "misspelled" caption on the forms button ConCat AH15.

A low priority, of course, but I'm curious.

Regards,
Howard

https://www.dropbox.com/s/qju11o4xc8ovnji/Cryptoquote%20Whole%20Puzzle%20Solver%20%28Drop%20Box%29%20-%20Copy.xlsm

[Claus Busch]

Hi Howard,

Am Sun, 16 Jun 2013 11:10:28 -0700 (PDT) schrieb lhki...@comcast.net:

> Run spell check from tool bar and it offers a solution to the "misspelled" caption on the forms button ConCat AH15.

I can't reproduce it. For me it works fine.
But another tipp: Put only code of worksheet events in the code module
of the worksheet. And in code module of the workbook only code with
workbook events. All other subs or functions put in a standard module.


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

[Claus Busch]

Hi Howard,

Am Sun, 16 Jun 2013 20:30:57 +0200 schrieb Claus Busch:

> But another tipp: Put only code of worksheet events in the code module
> of the worksheet. And in code module of the workbook only code with
> workbook events. All other subs or functions put in a standard module.

in code module of sheet3 you have:

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next
If Target.Row = 1 Or Target.Row = 4 Or Target.Row = 7 Or Target.Row = 10
_
Or Target.Row = 13 Or Target.Row = 16 Or Target.Row = 19 Or Target.Row =
2 Then
Target.Offset(0, 1).Select
End If
If Target = Range("AB12") Then
Target.CheckSpelling SpellLang:=1033
End If
End Sub

This long IF construct is better and easier to write as a Select Case
statement:
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Row
Case 1, 2, 4, 7, 10, 13, 16, 19
Target.Offset(0, 1).Select
End Select

If Target.Address(0, 0) = "AB12" Then
Target.CheckSpelling SpellLang:=1033
End If
End Sub

[lhki...@comcast.net]

Hmmm, that is just sloppy on my part. I had forgot all about that. The only spell check I need or want is in cell AK15, which you have produced for me.

If you are on sheet 1, and go Review > click Check Spelling, do you get the Spelling: English (US) box with "ConCat" not in dictionary and the suggestion of "concept"?

Howard

[Claus Busch]

Hi Howard,

Am Sun, 16 Jun 2013 12:21:02 -0700 (PDT) schrieb lhki...@comcast.net:

> If you are on sheet 1, and go Review > click Check Spelling, do you get the Spelling: English (US) box with "ConCat" not in dictionary and the suggestion of "concept"?

yes, I get "Concat" and all the XO combinations

[Claus Busch]

Hi Howard,

Am Sun, 16 Jun 2013 12:21:02 -0700 (PDT) schrieb lhki...@comcast.net:

> If you are on sheet 1, and go Review > click Check Spelling, do you get the Spelling: English (US) box with "ConCat" not in dictionary and the suggestion of "concept"?

I tested with a new sheet. CheckSpelling ignores ActiveX Controls. But
Form Controls will be checked.
I never noticed that because I always use ActiveX Controls

[lhki...@comcast.net]

On Sunday, June 16, 2013 1:11:37 PM UTC-7, Claus Busch wrote:
> Hi Howard,
>
>
>
> Am Sun, 16 Jun 2013 12:21:02 -0700 (PDT) schrieb lhki...@comcast.net:
>
>
>
> > If you are on sheet 1, and go Review > click Check Spelling, do you get the Spelling: English (US) box with "ConCat" not in dictionary and the suggestion of "concept"?
>
>
>
> I tested with a new sheet. CheckSpelling ignores ActiveX Controls. But
>
> Form Controls will be checked.
>
> I never noticed that because I always use ActiveX Controls
>
>
>
>
>
> Regards
>
> Claus Busch

Okay, I can put that to bed, normal but this is the first time it has come to my attention.

Thanks Claus. On to more important stuff now. <g>

Howard