VBA to Cancel a Dialogue

[FracinDean]

I'm trying to generate word lists that meet certain tests. I would like to use Spellcheck to decide when something is actually a word. I am able to determine if something is a word from the return value "TRUE" or "FALSE", but I have not been able to determine how to close the spell check dialogue box from within my code. I always want to select the "Cancel" option for the dialogue box. I don't the issue is just about spell check, but about how to programmatically respond to a dialogue box when the fact that the dialogue opened has paused the execution of your code. Here is my code:

Dim isWord as Boolean, wordToCheck as string
Range("myWord").Select
wordToCheck = Selection.Value
isWord = Selection.CheckSpelling(wordToCheck)
Msgbox ("Result is " & isWord)

 

[FracinDean]

I was able to locate some information in another source. What I found was that if the .CheckSpelling method is called from a function, then the Boolean value will be returned without opening the dialogue box. I think it is likely that it will work for other methods that would open a dialogue, but I have not tested those. Here is what worked:

Function SpellingIsCorrect(ByVal strInput) As Boolean
  SpellingIsCorrect = Application.CheckSpelling(strInput)
End Function

along with the following in my Sub

Dim isAWord as Boolean, theWord as String
theWord = Selection.Value
isAWord = SpellingIsCorrect(theWord)

This is using my default dictionary and returning TRUE or FALSE without opening a dialogue.