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