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

ExcelBanter (https://www.excelbanter.com/)

- Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)

- - Spellchecker anomaly... Checks spelling on a Forms Button text label...? (https://www.excelbanter.com/excel-discussion-misc-queries/448892-spellchecker-anomaly-checks-spelling-forms-button-text-label.html)

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

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/qju11o4xc8...0-%20Copy.xlsm

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

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

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

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

On Sunday, June 16, 2013 11:55:13 AM UTC-7, Claus Busch wrote:
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

Regards

Claus Busch

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

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