Not a difficult addition. Just below the line

Dim rText As Range

*add* these lines:

Dim sMsg As String
Dim lResponse As Long

sMsg = "Spelling for this box has been checked." & vbLf & vbLf
sMsg = sMsg & "Click OK to continue or Cancel to end spell checking."

Then, *replace* the line

MsgBox "Spelling for this ActiveX control has been checked."

with these lines:

lResponse = MsgBox(sMsg, vbOKCancel)

If lResponse = vbCancel Then
Exit Sub
End If

That ought to get you there. You can change the text in sMsg to
whatever would make the most sense to your users.

James


--
jamescox
------------------------------------------------------------------------
jamescox's Profile: http://www.thecodecage.com/forumz/member.php?userid=449
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=120599

This worked, but it was a little unpredictable in the path it chose when
checking the boxes. I'm just going to stick with the original code.

Thanks again for all your assistance!

"jamescox" wrote:


Not a difficult addition. Just below the line

Dim rText As Range

*add* these lines:

Dim sMsg As String
Dim lResponse As Long

sMsg = "Spelling for this box has been checked." & vbLf & vbLf
sMsg = sMsg & "Click OK to continue or Cancel to end spell checking."

Then, *replace* the line

MsgBox "Spelling for this ActiveX control has been checked."

with these lines:

lResponse = MsgBox(sMsg, vbOKCancel)

If lResponse = vbCancel Then
Exit Sub
End If

That ought to get you there. You can change the text in sMsg to
whatever would make the most sense to your users.

James


--
jamescox
------------------------------------------------------------------------
jamescox's Profile: http://www.thecodecage.com/forumz/member.php?userid=449
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=120599

One of the most important thing in working with spreadsheets is knowing
when to quit! Having said that, if you change the line in the 'original
code' from

If Err = 0 Then

to

If Err = 0 And Len(rText.Cells(1).Value) < 0 Then

your users won't see the code stop for empty textboxes and therefore
they won't have to click OK in for those textboxes.

Now I'm going to put down the keyboard and back slowly away - and maybe
I won't compulsively make any more 'enhancements'... :Bgr


--
jamescox
------------------------------------------------------------------------
jamescox's Profile: http://www.thecodecage.com/forumz/member.php?userid=449
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=120599

Well, now that you brought that up, I had to try it. I like this one and I
thank you. I suspect always trying to "enhance" makes people such as
yourselves as knowledgeable as you are.

Thanks again!



"jamescox" wrote:


One of the most important thing in working with spreadsheets is knowing
when to quit! Having said that, if you change the line in the 'original
code' from

If Err = 0 Then

to

If Err = 0 And Len(rText.Cells(1).Value) < 0 Then

your users won't see the code stop for empty textboxes and therefore
they won't have to click OK in for those textboxes.

Now I'm going to put down the keyboard and back slowly away - and maybe
I won't compulsively make any more 'enhancements'... :Bgr


--
jamescox
------------------------------------------------------------------------
jamescox's Profile: http://www.thecodecage.com/forumz/member.php?userid=449
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=120599